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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A00 **x MAP EC HISTORY ** 002500 2A24 198 A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
RIC RIO I OI RICO I CA ok kak aia ic ak ak ak akc ak 199 3 IG ROK RO GI ICR OR a tO i ik ak ok aici ok aati kc atc ok 
5 * *x 200 363 I OO Foi OR ia OK a tokio lok kok kok ica k 
6 * 7 He PREREQUISITES HK x 201 ** eK 
7 * x 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR Ape oe) eK 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THé PROPER * x 
Q x x 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
VO RRR KK KE KK KK KI RIK ak kak tok kak ak ake tok oi ofc 2c ok 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS * x 
11 * * 206 ** PURPOSE THEY ARE: ; * 
12 * CK MODIFICATIONS 2 ak * 207 ** ales 
13 * x 208 ** STEP AND RULE ADDRESS TABLE Ok 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * x 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. *% 
16 i I ROK ck IO ICO IRI I ICI I I I ki 3 gk fi i ic ee ake ak ae akc ac akc ak 211 ** ENTRIES ARE AS FOLLOWES ** 
17 * x 212 ** A AN ADDRESS OF THE RULE DC START AREA  % 
18 * KK REA'S INCORPORATED AK 213 ** B THE STEP NUMBER IN DECIMAL * 
19 * x 214 ** C AN EQUATE FOR THE STEP NUMBER %* 
20 * NONE * 215 ** * 
21 * x 216 ** RULE INFORMATION TABLE * 
22 EO ICC IGOR 2 III IC GOK a ick kak kk ak atk ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * x 
23 * *x 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 
24 * 4K SPECIAL INSTRUCTIONS KK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * x 
25 * * 220 ** INDICATED WITH A X*OOOO' FOR THE RULE EQUATE. * * 
26 * NONE * 221 ** * 
IT. * * 222 ** SQUES Kk 
VASE LES SSS SSS S SSS SS SSS SSS SS SSS SSS SSS SSS SSS SESS SSS SSS SSS SSS SSCS SSL CL eS. 2S 2 223 ** BY RULE EQUATE X'!0100! * 
29 * x 224 ** ADDRESS OF THE YES LEG RULE * % 
30 * ee % E. C. HISTORY x * 225 ** * 
31 * * 226 ** $FIXT Kk 
32 * DATE 17AUG78 DATE 020CT78 DATE 10JAN79 DATE * 22] ** A) RULE EQUATE X*'0101' * * 
33 * EeC. 755391 E.C. 375102 £E.C. 375222 ~~ £E.C. * Bae ie B) ADDRESS OF MESSAGE TO PRINT oie 
* * 
35 FAR I IO OC ICICI CR CII IG IOI ik tok ak ak 230 ** $STOP x 
002500 37 I7A00 START xX'2500! START ADDRESS OF ALL 'I* TYPE PROG 231 ** BY RULE EQUATE X*0102' sales 
000100 38 @QUES EQU X'*0100! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE 
000101 39 @FIXT EQU X'0101' EQUATED VALUE FOR MDI STATEMENT 233 **  % 
000102 40 @STOP EQU X'0102' EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO * 
000200 41 @GOTO EQU X'0200' EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200! 1% 
000201 42 @CALL EQU X*QO201' EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * x 
000300 43 @INPT EQU X'0300° EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO * 
000400 44 @QUXX EQU X'O400! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 aTuxx EQU X'Q500! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * * 
000600 46 @NVLD EQU X*'0Q600! EQUATED VALUE FOR MDI STATEMENT 241 ** > 
000000 : 47 EQ EQU X'Q000' EQUATE FOR EQUAL 242 ** $CALL aK 
000004 48 NE EQU X'QOOO4! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201' * x 
000008 49 HI EQU X'0008' EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE 2k 
Q00000C 50 NH EQU X'QOO0C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL %* % 
000010 51 LO EQU X'Q010! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X'0014! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000010 53 LT EQU X'0010! EQUATE FOR LESS THAN 248 ** OK 
00000C 54 LE EQU X'OOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT ke 
000008 55 GT EQU X'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300! 2 3 
000014 56 GE EQU Xx'0014°8 EQUATE FOR GREATEP THAN OR EQUAL TO 251 ** B) INPUT TYPE (EBCDIC OR HEX) * 
000200 57 ON EQU X'0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE eX 
000202 58 OF EQU X'0202' EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * x 
000204 59 MX EQU X'O204'5 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA 1K 
000000 60 EBC EQU X*O000! EQUATE FOR EBCDIC DATA TRANSFER 250. ** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EQU X'QOO1' EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA tk 
000001 62 XTRNL EQU X'0001' EQUATE FOR EXTERNAL REFERENCE 257 ** 1 
000000 63 INTRNL EQU X'O0000° EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX a 
000000 64 PARM EQU x*0000! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'O4OO! * 
000001 65 DA EQU X'0001'5 EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE Ae 
000002 66 UA EQU X*Q002! s UATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS SECONDAR ae 
000000 67 DUMMY EQU. X*0QQ00! MMY covets 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) * 
001800 69 PID EQU *-X'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER I * % 
000232 70 PTYPE EQU *=X' 22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU. a 
00180C 71 STEPNUM EQU PID+X'OOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * x 
00180E 72 OPWD1 EQU PID+X'QOOE! ADDRESS OF OPTION WORD ONE 266 ** OK 
001810 73 OPWD2 att PID+X'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX 4K 
001818 74 TUSTATUS EQU PID+X!'0018° ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X'0500! * 
OO181A 75 TUWORK EQU PID+X'QO1A' ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE ad 
O0OO0189A 76 TUPARM1 EQU PID+X'QOQA' ADDRESS OF PARM POINTER 270 ** C) TU BRANCH TO ADDRESS * 
00189C 77 TUPARM2 EQU PID+X'QO9C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS > ok 
00189E 78 TUPARM3 EQU PID+X'OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS 1 
0018A0 79 TUPARM4 EQU PID+X'QOOAO! ADDRESS OF PARM 4 POINTER 213 ** F) MASK FIELD FOR COMPARE OK 
0018A2 80 TUPARMS EQU PID+X'OOA2' ADDRESS OF PARM 5 POL?TER 274 *% G) LENGTH OF PARAMETER IN BYTES %* 
0018A4 81 TUPARM6 EQU PID+X'QOAG' ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * % 
0018A6 82 TUPARM7 EQU PID+X'OOA6'! ADDRESS OF PARM 7 POINTER 216 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
0018A8 83 TUPARM8 EQU PID+X'OOA8! ADDRESS OF PARM 8 POINTER 277 ** x 
OO18AA 84 TUPARMY EQU PID+X"OOAA'* ADDRESS OF PARM 9 POINTER 278 ** SNVLD * x 
0018AC 85 TUPARM10 EQU PID+X'OOAC'* ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600° 3K 
0018AE 86 TUPARM11 ty PID+X*QOOAE! ADDRESS OF PARM 11 POINTER 281 ** * 
0018B0 87 TUPARM12 EQU PID+X'OOBO!? ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EQU PID+X*OQOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLF CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *% 
0018B4 89 TUPARM14 EQU PID+X*OOB4! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE OK 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * * 
0018B8 91 TUPARM16 EQU PID+X*OOB8'! ADDRESS OF PARM 16 POINTER 286 ** OK 
QOO18BA 92 TUMSGWTR ate PID+X"OOBA* ADDRESS OF -> TO COMMON MSG WRITER 287 ** Bt NAME OF ENTRY POINT OK 
0018BE 93 TUUA EQU PID+X"OQBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+X'QOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** x 
0018C2 95 TUBUFF EQU PID+X"0Q0OC2' ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A x'0000! * 
0018C4 96 TULAST EQU PID+X*QOC4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** * 
0018C6 97 TURESULN EQU PID+X*0O0C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** BESORGES crete OK 
0018C8 98 TURESUL EQU PID+x'OOC8* ADDRESS OF TU RESULTS FIELD 293 ** TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ** 
0018FC 99 MAPNAME EQU PID+X*OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** vA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * & 
001948 100 TUINPT EQU PID+X'0148! ADDRESS OF $INPT DATA 295 ** * 
00196E 101 PARMARA ata PID+X'O16E* ADDRESS OF S$INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK ** 
0019B8 102 @DCADD1 EQU PID+X*'0O1B8! MDI POINTER 29] -** B) NUMBER OF LINES OF MESSAGE * 
0019BA 103 @DCADD2 EQU PID+X"O1BA* MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EQU PID+xX!O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE OK 
0019D0 105 DEVADD EQU PID+X*'Q1D0'! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
QOQ19DA 106 DEVADD1 att PID+X'O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE 2K 
0019E4 107 DEVADD2 EQU PID+X'Q1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G TGs 2k 
QO19EE 108 DEVADD3 EQU PID+X'Q1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** 1 
0019F8 109 DEVADD4 EQU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 304 2 I III OO I IORI IGOR IR ROR IO I I I IK «kak ak 
001A02 110 DEVADDS EOQU PID+X*0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 2 IO OO IO IOI IIIA IIR I IOR I ROK ROR Ig Oi Rk ak 
OOTAOC 111 DEVADD6 EQU PID+X'0Q20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 HAE DEVADD7 a a ee ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT 
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CHARACTER SUPPLIED 
COMPARE OPERATION 
PROGRAM OPTION CONTROL WORD 3 


8 CS STATUS IN PROGRESS CS 

9 CS AVAILABLE CSA 
10 CS STATUS INTERRUPT ERR CE 

11 ISB BITS ON (1-7) ISBON 
12 TEST UNIT RESULTS VOID NG 

13. OIO CC ERROR IOCC 
14 NO INTERRUPT NOIN 
15 INTERRUPT CC ERROR INCC 


MYSTERY INTERRUPT HAPPENED 
ERROR PECEIVED ON INTERRUPT 
EXPECTED INTERRUPT CONTROL BIT 
INTERRUPT RECEIVED CONTROL BIT 
EXPECTED ERROR RESPONSE 

HARD ERROR, 8 RETRIES 
INTERRUPT ON WRONG LEVEL ERROR 
NO INTERRUPT EXPECTED E 

CYCLE STATUS IN PROGRESS 

CYCLE STEAL AVAILABLE 

CYCLE STEAL STATUS INERRRUPT ERROR 
ISB BITS ON (1-7 

TEST UNIT RESULTS NO GOOD 

OIO CC ERROR 

NO INTERRUPT 

INTERRUPT CC ERROR 


COMMON BUFFER FOR PRINTING DATA 
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TEST UNIT IDENTIFICATION 

I7Q AND INTR CONDITION CODES 
R7, INTR STATUS BYTE & DEV ADRS 
ADRS OF LAST I/O + 4 BYTES 
DEVICE DEPENDENT DATA 


x 

CS STATUS ERROR ISB & INTR CC 

READ ID BUFFER FOR IBIS & TERN 
Pee BAe ee FOR LAST DCB USED 
LAST DCB TABLE, 


LAST DCB TABLE, DEV DEP WORD 
LAST DCB TABLE, DEV DEP WORD 
LAST DCB TABLE, CHAIN ADRS 
LAST DCB TABLE, BYTE COUNT 
LAST DCB TABLE, BUFFER ADDRESS 


bees STEAL ete 


STATUS WD 0, AL ADDRESS 
CS STATUS WD 1, RESIDUAL COUNT 
CS STATUS WD 2, RETRY CNT WD 1 
CS STATUS WD 3, RETRY CNT WD 2 
CS STATUS WD 4, ERROR STATUS WD 1 
CS STATUS WD 5, ERROR STATUS WD 2 
CS STATUS WD 6, LAST DCB ADDRESS 
CS STATUS WD 7, PREVIOUS HD/CYL 
CS STATUS WD 8, CURRENT HD/CYL 
CS STATUS WD 9, FLAG/SECTOR 
CS STATUS WD 16, HEAD/CYLINDER 
CS STATUS WD 11, DIAG BYTES 1, 
CS STATUS WD 12, AND 3 + WRAP "athe 


LAST SUBROUTINE ADDRESS USED 
OPTIONAL DATA 

INTERRUPT LEVEL REQUESTED 
TEST UNIT RETURN ADRS TO MDI 
DEVICE ID 

ADRS OF DEVICE ADDRESS 

IBIS CYLINDER ADDRESS 


THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
STILL VALID BUT A DIFFEKENT TEST IS TO BE PERFORMED. 


MVWI X'7AO2',STUID 
BXS R7 
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SET UP TEST UNIT ID 
RETURN TO MDI SUPVR 


EQUATED NAMES FOR SUPPORTED SVC'S 
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OUT SVC 
OUTIN SVC 
IDLE SVC 
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IDLE SVC - INDEPENDENT OF CPU TYPE 


CHANGE LEVEL SVC 


ALLOW RETURN ON PROGRAM CHECK SVC 


EXIT SVC 

TERMINATE SVC 

RESET DEVICE SVC 

READ ID SVC 

START CYCLE STEAL SVC 


START CYCLE STEAL STATUS SVC 


OFF SVC 
ON SVC 


OFF SVC 
ON SVC 


PREPARE DEVICE SVC 

READ WITH FUNCTION BIT 
READ WITH FUNCTION BIT 
READ STATUS SVC 

WRITE WITH FUNCTION BIT 
WRITE WITH FUNCTION BIT 
CONTROL SVC 
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I7A00 --- CHANNEL/4963 DISK UNIT 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT 
000013 RICB EQU 19 
000014 CICB EQU 20 
000015 HIO EQU 21 
000016 REQSD EQU 22 
000017 RELSD EQU 23 
000018 LT U 24 
000019 ETOH EQU 25 
QOOOO1A HTOE EQU 26 
00001B ATOH EQU 27 
00001C HTOA EQU 28 
00001D ETOA EQU 29 
OOOOTE ATOE EQU 30 
O0O0001F READI EQU 31 
000020 WRITI E 32 
AK He AK 2K 2 eK OK * 
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002DD2 00 
O0OO2DEO 00 
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OO2DE8 2E 
OO2DEA 00 
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OO2DFO 20 
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RELEASE INTERUPT CONTROL BLOCK SVC 
CONNECT INTERUPT CONTROL BLOCK SVC 


HALT ALL I 


0 
REQUFST USE OF DCP DISK SVC 
RELEASE USE OF DCP DISK SVC 


HALT SVC 


HEX TO EBCDIC SVC 
ASCII TO HEX SVC ‘ 


EBCDIC TO HEX SVC {Static 


HEX TO ASCII SVC 
EBCDIC TO ASCII S 


STRING 


WRITE DATA SETS FOR 


EQUATES USED BY TU'S AS CONSTANTS 


Ct+t 
CcCt—? 


WO ~~ ENIOVOO 


BUDD ed Dd ed ON td od od ed ot od OO NIOUIE WA) BO 
ANOL 


Pu SeOSubeNaGuRGS 


Day ced med ceed red and ad 6.0 CO J OV UT ES UI ND 2 © 
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AOODCB 


** (T7A00DCB) 
OK eo a a ae be ie fe hc 2 2k 2 OK ae 3k ah 2 Ec hc 2 2 a oc 2 2c 3K aK oie ok He AEA HEE EK KKK 8/7 TREKK KKK K KX 
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* DCB TABLES AND DC's 

Pet SS SSS SSE S SL SSS STE SS TSS STE SS ST SSS SSS TST ST SSS SS Se sce TS SSS TC SS SSCS SSL 2 et | 
* 


cates DIAGNOSTIC DCB 


X'2008! 
A (*-* 
A feat 
000 
A rE) 
A 
x! 


010 
A (*- *) 


« 
oe RECALIBRATE DCB 


CLDCB DC X¥'0001! 
0000000000000 DC TA (*-*) 
***4% WRITE SECTOR ID 
WSDCB DC x'902D' 
DC A x} 
DC A 
DC X*000 
DC A geM) 
DC 
DC 000 
, DC i (WRSID) 
****% READ SECTOR ID DCB 
RSDCB DC x1 201C" 
DC A (¥- 
DC Xfo000t 
DC X*0000! 
DC A (RSBA) 


PLUS CHAR 

MINUS CHAR 
11 
12 
13 
15 
16 
32 
6y 
128 
256 
1024 
2048 
3072 
4096 
-1 
-2 
-3 
-4 


THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE 
BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. 


tek Fok Rok kK Rok lok tek kkk ok I gai kok kk lek kkoicick ik tok kok dak i koi i tk fete ak ake ie akc ok ae akc 


260CT77 


DIAGNOSTIC 


HEAD / CYLINDER#'S 
NOT USED 
RSB_ ADDRESS 


STRING 
TRING 


C (STR 
ASCII TO EBCDIC SVC (er RING 
READ DATA SETS FOR MDI/UTIL 


CHAINING ADDRESS 
BYTE COUNT 
DATA ADDRESS 


RECALIBRATE DCB 


WRITE SECTOR ID CNTL WORD 
FLAG / PHYSICAL SECTOR# 
HEAD / CYLINDER#'S 

NOT USED 

RSB_ ADDRESS 

CHAIN ADDRESS 

BYTE COUN 

ADDR OF SECTOR ID DATA 
READ SECTOR ID CNTL WORD 
FLAG / PHYSICAL SECTOR# 
HEAD / CYLINDER#'*S 

NOT USED 

RSB ADDRESS 


UTIL 
- SPSL SL SSL SS SL SSL SSL SSL SS SSS SESS ESS S SSS SSS SS +S PSS SSS eS Ss Ot eS | 
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sk 
PP SSE SL SS SSL SL SS SSP TSS FT SS STS SST SSS SS SSS SSS SSS SSeS SS SSS SSCS SCS SS SL SSL SSS +S 
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I7A00 --- CHANNEL/4963 DISK UNIT P/N=8327647 EC=375222 PAGE 07 I7A00 --- CHANNEL/4963 DISK UNIT P/N=8327647 EC=375222 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO2DFA 0000 1457 DC a ( CHAIN ADDRESS 1571 * 
OO2DFC 0004 1458 DC n06 BYTE COUNT FOR READ SECTOR ID 1572 He He He i He ee ee He He HR 2 ee ee ee ee a a LY G7 7 EE I RO OR a a Ok tok ak i ak ak ak ak 
OO2DFE 2D76 1459 DC A (SCTID) SECTOR ID DATA ADDRESS 1573 * 
1460 * 1574 * SUBROUTINE 
1461 ***** SEEK DCB eka: 1575 * 
1462 * 1576 * PURPOSE 
002E00 0000 1463 SKDCB DC X*00008 SEEK DCB CONTROL WORD 1577 * 
002E02 0000 1464 DC x" eee NOT USED 1578 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
002E04 0000 1465 DC *— ae HEAD ee CYLINDER#'S 1579 * 
002E06 0000 1466 DC af 000 NOT USED 1580 * CALLING SEQUENCE 
0OO2F08 2E9A 1467 DC A (RSBA) RSB ADDRESS 1581 * 
002E0A 0000 1468 DC A CHAIN ADDRESS 1582 * BAL CMPRW,R6 (NORMAL) 
00O2E0C 0000 1469 DC Xt 000 NOT USED 1583 * 
O02FOE 0000 1470 ; DC x 0000" NOT USED 1584 * RETURN 
1472 ae CYCLE STEAL STATUS DCB ** ##** x 1586 . BXS (R6,2) NORMAL 
002F10 2000 1474 CSDCB DC X¥'*2000! CONTROL WORD 1588 * 
002F12 0000 1475 Dc Fro: NOT USED 1589 PF Sf 2 2 SSS SSS SSL SS SS SSS SSS SSS SSS SS SSL SS SPSS SSS SSS SSS LSS SS Set Steet eS SS 2 es 
002E14 0000 1476 DC For NOT USED 1590 * 
002E16 0000 1477 DC Fro? NOT USED OO2EB4 4724 0004 1591 CMPRW MVWI COMPARE BYTE COUNT 
002EF18 0000 1478 DC Ftot NOT USED OO2FB8 4324 2D76 1592 MVA stat, R3 ADDR OF RD SEC ID DATA 
OO2E1A 0000 1479 DC Ftor NOT USED OO2FBC 4524 2E8E 1593 MVA  WRSID,R5 ADDR OF WR SEC ID DATA 
0OO2F1C OO1A 1480 DC X'OO1A! 13 WORDS OF STATUS OO2ECO 2BA6 1594 CFNEN (R3), (R5) COMPARE ID DATA 
OO0O2E1E 2D8E 1481 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA OO2ZEC2 68C0 0002 1595 B R6, 2) ECH IF WRITE ID DATA OK 
1482 * 002EC6 68D2 0000 1596 B R6{ * COMPARE ERROR 
1483 *¥KKKEK WRITE DCB Xe Ke Re Kk OK 3h Ke oe ok Kc 1598 2 2S 2S SS SSS SS SSS SSS SS SESS SS SSS SLPS SSS SS SL SSS SSS SSeS St eee +S ES OL eS 2 2 2 3 
1484 * 1599 * 
002E20 0028 1485 WRDCB DC X'0028! WRITE DATA DCB CNTL WORD 1600 * EXECUTE INPUT & OUTPUT COMMANDS 
002E22 0000 1486 DC A (*-* FLAG / RECORD# 1601 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
002E24 0000 1487 DC A (*- * HEAD / CYLIDNER#'S 1602 # EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
002E26 0000 1488 DC A (*-* SCAN / REPEAT COUNT 1603 * LIST AND ANY SPECIAL SWITCHES BEFOPE BRANCHING TO THE 
002E28 2R9A 1489 DC A (RSBA) RSB ADDRESS 1604 * SUPVR CALL. 
002F2A 0000 1490 DC A (*-* CHAIN ADDRESS 1605 * i 
002F2Cc 0100 1491 DC X¥*O100! BYTE COUNT 1606 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
OO2ZE2E 0000 1492 DC h (*-*) WRITE DATA ADDRESS 1607 * ‘ 
1493 * 1608 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1494 ce VERIFY DCB 9 KK 1609 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
002E30 0019 1496 VRDCB DC X¥*0019! CONTROL WORD 1611 * THIS ROUTINE HAS THE FOLLOWING ENTPIES: 
002E32 0000 1497 DC A (*-* FLAG / RECOFD# 1612 * : 
002EF34 0000 1498 DC A (*-* HFAD /% CYLINDER#'S 1613 * 1 BAL $RKEW, R6 READ SECTOR ID SKEWED 
002F36 0000. 1499 DC A Ok- * SCAN / REPEAT COUNT 1614 * 
002E38 2E9A 1500 DC A (RSBA) RSB ADDRESS 1615 * 2. BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
002E3A 0000 1501 DC A = CHAIN ADDRESS 1616 * . 
002E3Cc 0000 1502 DC A (*-% BYTE COUNT 1617 * 3. BAL $SWSEC, R6 WRITE SECTOR ID 
00O2E3E 0000 1503 DC Ftor NOT USED 1618 * : 
1504 * 1619 * 4 BAL $DIAG, R6 DIAGNOSTIC 
1505 **#k*k READ DCB #8 1620 * , 
1506 * 1621 * 5 BAL  XIOCS,R6 CYCLE STEAL STATUS 
OO2ZE40 2018 1507 RDDCB DC Xx*'2018! READ DCB CONTROL WORD 1622 * : 
002F42 0000 1508 DC A (K-* FLAG / FECORD# 1623 * 6 BAL $SSEEK, R6 SEEK 
O0O2F44 0000 1509 DC A (*-* HEAD / CYLINDER#! 1624 * : 
0O2E46 0000 1510 DC A (k= SCAN / REPEAT Count 1625 * 7 BAL $RECL, R6 RECALIBRATE 
OO2EF48 2E9A 1511 DC A(RSBA) RSB ADDRESS 1626 * ‘ 
OO2E4A 0000 1512 DC A (*—* CHAIN ADDRESS 1627 * 8 BAL $RDID, R6 READ SECTOR ID 
O0O2E4C 0100 1513 DC X¥*0100" BYTE COUNT 1628 * . 
OO2E4E 0000 1514 , DC A (*-*) READ DATA ADDRESS 1629 = 9 BAL  $RD,R6 READ 
13 16 $072 WRITE SECTOR ID SKEWED **** 1631 : 10 BAL SRDVY, R6 READ VERIFY 
002F50 002F 1518 WKDCB DC X"OO2F? CONTROL WORD 1633 * 11. BAL SWRT, RG WRITE 
002F52 0000 1519 DC A (*-* FLAG / PHYSICAL SECTOR # 1634 * 
002E54 0000 1520 DC A (*— HEAD / CYLINDER#* 1635 * 12 BAL $RDIM, RG READ MULTI SECTOR IDS 
002E56 0000 1521 DC Fro NOT USED 1636 * 
002E58 QEIA 1522 DC A RSBA) RSB ADDRESS 1637 PSS 2 SS SS SSS SSS SS SS SSS SSS SSS SSL SSS SSSOLLLSS SSS SSS SSSSCPCOSCeSOSSS SCL SS Se Ss 
00O2F5A 0000 1523 pc A (#—* CHAIN ADDRESS 1638 * 
002F5c 0004 1524 DC X*O00 BYTE COUNT OO2ZECA 4020 2E00 1639 S$SEEK MVA SKDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2E5E 2E8E 1525 r DC A (WRSID) ADDR OF SECTOR ID DATA 002FDO 507F 1640 i J XTO 
1527 **** READ SECTOR ID SKEWED IK OO2ZED2 4020 2DD0 1642 $SRECL MVA CLDCB,1IODCB SET UP BLOCK FOR SVC CALL 
1528 * O0O2ED8 507B 1643 J XTO 
002E60 201D 1529 RKDCB DC X*201D* CONTROL WORD 1644 * 
002F62 0000 1530 DC A feos} FLAG / PHYSICAL SECTOR# OO2ZEDA 4020 2DFO 1645 $RDID MVA  RSDCB,IODCB SET UP BLOCK FOR SVC CALL 
O0O2E64 0000 1531 Dc A x HEAD 7 CYLINDER#'S 00O2EEO OBBB 1646 MVBI X'*BB',R3 SET BUFFER TO B'S 
002E66 0000 1532 DC NOT USED OO2EE2 4524 1647 MVA SCTID, RS SETUP READ SECTOR ID BUFFER ADRS 
O0O2E68 2F9A 1533 ne i espn) RSB ADDRESS OO2EF6 4724 1648 MVWI 4_R7 SETUP BUFFER LENGTH 
OO2E6A 0000 1534 DC CHAIN ADDRESS OO2EEA 2BAC 1649 FFN R (R5) INIT READ SECTOR ID BUFFER 
OO2F6C 0004 1535 DC ‘O00 BYTE COUNT OO2FEC 4020 2D76 1650 MVA SCf£ID, RSDCB+14 DATA ADDR 
OO2E6E 2D76 1536 : DC A (SCTID) SECTOR ID DATA ADDRESS OO2EF2 506E 1651 . J XIO 
1538 **** READ MULTIPLE SECTOR IDS HO OO2ZEF4 4020 2E70 1653 S$RDIM MVA  RMDCB,IODCB SET UP CONTROL RLOCK FOR SVC CALL 
1539 * OO2EFA 4724 1654 MVWI 132,R7 SET BUFFER LENGTH 
002E70 201C 1540 RMDCB DC X*201C!# CONTROL WORD OO2EFE 4524 1655 MVA 1306; R5 SET BUFFER ADDRESS 
002E72 0000 1541 DC a aed FLAG / PHYSICAL SECTOR# 002F02 OBBRB 1656 MVBL "BBE RB SET CLEAR CHARACTERS 
OO2E74 0000 1542 DC A (#-* HEAD / CYLINDER#'S 0O02FO4 2BAC 1657 FFN £35 (R5) CLEAR THE BUFFER 
002E76 0000 1543 DC Ftor NOT USED O0O2F06 5064 1658 J 
$8318 3585 ig BEARS aati 00208 oper 1660 § see 83 
= RD MVBI X'FF',R SETRD BUFFER TO ALL F!S 
OO2E7C 0084 1546 DC X*O08k" BYTE COUNT OO2FOA 6D08 1661 MVW RDDCB414,R5 SET UP READ BUFFER ADRS 
OO2ZE7E 2EAA 1547 DC A (IDOO) DATA AREA ADDRESS OO2FOE 6F08 1662 MVW RDDCB+12, R7 SET UP BUFFER LENGTH 
lide + CONSTANTS AND DEFINED STORAGE LOCATIONS Ose te mess 2E40 eeu $RDS ae RDbCB, Nae Shr fp’ BLO ROFORS 
T OCK FOR SVC CALL 
002E80 0000 1550 ZEROO DC X*0000! CONSTANT ZERO OO2F1A 505A 1665 J ' 
$3358 3884 igi Gu Be god cotRP NT atEner eorwren go2ric 4020 3022 2830 «188 3 
- FIC E RDVY MVA  VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002E86 EB6D 1553 WDATA DC a fenebe WRITE DATA 002F22 5056 1668 J xIo ” 
DOSEBR 6000 ees LGSEC De t O0008 LOGICAL SECTOR # 002F24 4020 2E20 10390 3 
F E 1670 S$WRT MVA  WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002E8C 0000 1556 PHYSC DC X¥'0000' CONVERTED PHYSICAL SEC # 002F2A 5052 1671 J XIo ” 
002E8E 0000 1557 WRSID DC X¥*00008 FLAG, SECTOR (WRT SECTOR ID DATA) 1672 * 
002E90 0000 1558 DC X¥*0000! HEAD-CYLINDER 002F2c 4020 2E60 1673 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO02E92 FF34 1559 WSIDT DC X'FF34" WRITE SFCTOR ID TEST DATA 002F32 OBBB 1674 MVBI X*BR',R3 SET BUFFER TO B'S 
002E94 5678 1560 DC X'56788 O0O2F34 4524 1675 AVA SCTID, RS SETUP READ SECTOR ID BUFFER ADRS 
002F96 0000 1561 SCTST DC X¥'00008 READ SECTOR ID TEST DATA BUFFER O0O2F38 4724 1676 MVWI 4 R7 SETUP BUFFER LENGTH 
002E98 0000 1562 DC X¥'00008 002F3C 2BAC 1677 FN AR 5) INIT READ SECTOR ID BUFFER 
002E9A 00000000000000000 1563 RSBA DC 6A (# *) RESIDUAL STATUS BLOCK O02F3E 4020 2D76 1678 MVA R3y D, RKDCB+14 DATA ADDR 
OO2FA6 0000 1564 CTRO2 DC X¥*0000" COUNTER OO2F44 5045 1679 J fo 
BOSE 8983 1386 GB8g° BE 419888 Cet tiless a0 or ser oxo 1688 3 
RE . SET BY USER OO2F46 4020 2F50 1681 $WKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2EAC 1010 1567 PDATA DC X¥*10108 WRITE DIAG WORD 1 DATA PATTERNS 00O2F4C 4020 2EBE 1682 MVA WRSID, WKDCB+14 DATA ADDR : ace a 
OO2EFAE 5555 1568 DC ¥'5555' * 002F52 503E 1683 J XIO 
OO2ZEBO AAAA 1569 DC X"AAAA® * 1684 * 
002FB2 FFFF 1570 DC X'FFFFt * 002F54 4020 2DE0 1685 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
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OO2F5A 4020 2DEE 2E8E 1686 MVA WRSID, WSDCBt14 DATA ADDR Q00300C 4020 2D70 0708 2365+ MVWI xX'O708!,SIOIN OVERLAY OLD CONDITION CODES 
002F60 5037 ae - J XIO 003012 CB25 2D72 te MVWZ SISB,R3 ZERO OUT OLD ISB VALUE 
+ 
002F62 4020 30E2 2DC0 1689 S$DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003016 4CA1 2368+ TBTR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 
O0O02F68 5033 1690 J XIO 003018 4CA3 2369+XIO2 fTBTR P4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1691 * 00301A 4724 30DE 2370+ MVA oBLK 7 SET UP CONTROL BLOCK FOR SUPVR 
OO2F6A 6E0D 2D74 1692 S$WRTO MVW R6, LSTIO SAVE TAR FOR RETRY IF REQUESTED 00301E 4CA6 2371+ TBTR RG, $LE) RESET LEVEL ERROR INDICATOR 
OO2F6E OBFF 1693 MVBI 255 R3 CLEAR CYCLE STATUS BUFFER 003020 4C62 2372+ TBTS R4, XI) SET EXPECTED INTR CONTROL BIT 
OO2F70 4524 2D8E 1694 MVA CSBUF,RS * TO ALL ONES * 003022 600A 2373+ SVC TART CALL SUPVR FOR I/O COMMAND 
OO2F74 OF16 1695 MVBI 2,R7 * 2374+% 
0OO02F76 2BAC 1696 FFN R3 gee} * 003024 4CAT7 2375+ TBTR (Ree 5}? IS AN INTP EXPECTED 
O002F78 4524 2D7E 1697 MVA pcB F,R5 CLEAR DCB BUFFER TO ALL ONES 003026 6AC0O 0002 2376+ BN R6, 2) * NO, RETURN TO USER 
OO2F7C OF10 1698 MVBI 16,R7 * 2377+* 
QOO2F7E 2BAC 1699 FFN R3 4R2) * 2378+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
00O2F80 4020 2D70 0708 1700 MVWI x6 08',$S10IN OVERLAY OLD CONDITION CODES 2379+* 
OO2F86 CB25 2D72 1701 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 00302A 4524 0000 2380+ MVWI O,R5 SET UP WORK REG FOR ‘LOST INTR' 
OO2F8A 4CA3 1702 TBTR RG, IN CLEAR INTERRUPT RECEIVED CNTL BIT O00302E 4CA3 2381+XIO8 TBTR (Ra IN) HAS INTEPRUPT BEEN RECEIVED 
OO2F8C 4CAT1 1703 TBTR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 003030 1239 2382+ JON tock io * YES, CHECK IF ALL WAS SATISFACTORY 
OO2F8E 4C62 1704 TBTS R4, XI SET EXPECTED INTR CONTROL BIT 003032 6002 2383+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
002F90 4724 30DE 1705 MVA OBLK, 7 SET UP CONTROL BLK FOR SUPR 2384+ SUPVR WILL RETURN HERE 
OO0O2F94 C020 30E5 1706 MVB IOMOD+1,R0 GET IDCB FUNC/MODIFIER 003034 6002 2385+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0OO02F98 402D 30E4 OOFO 1707 RBTWI X*OOFO!, IOMOD REMOVE FUNCTION FROM 'TOMOD! 2386+% SUPVR WILL RETURN HERE 
OO2F9E 3022 1708 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO 003036 7DA1 0001 2387+ AWL 1,R5 ADVANCE TIME OUT COUNT 
QO2FA0O F005 1709 CBI 5,RO IDCB FUNCTION = 5? 00303A 18F9 2388+ JNZ XfO8 BCH IF TIME OUT NOT REACHED 
QOO2FA2 1003 1710 JE $WRT1 YES ~- ISSUE 'SVC WRITi'! 00303C 4C61 2389+ TBTS (Re ER) SET ON ERROR CONTROL BIT 
OO2FA4 6010 1711 SVC WRITO ISSUE WRITE DPC "4X OP 00303E 68D2 0000 2390+ B R6{ * E "NO INTERRUPT! 
OO2FA6 6802 302A 1712 B X¥TO8B-4 GO WAIT FOR THE INTERRUPT 9392 4 IOI OR OCR CIR RO rai ktok dtc tok KO SP EBT 6** 
OO2FAA 6011 1713 $WRI1 SVC WRIT1 ISSUE WRITE DPC '5X! OP 2393+* 
OO2FAC 6802 302A be x B XIO8-4 GO WAIT FOR THE INTERRUPT ete ae SUBROUTINE 
+ 
OO2FRO 4020 30E2 2E20 1716 $SDGWR MVA WRDCB, ILODCB SET UP CONTROL BLK FOR SVC CALL 2396+* I/O EXECUTE ERROR HANDLING ROUTINE 
OO2FB6 6802 2FD6 1717 B XIODG ISSUE START CS DIAG CHD 2397+* 
1718 * 2398+* PURPOSE 
OO2FBA 4020 30E2 2E40 1719 SDGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 2399+% 
QO2FCO 6F08 2E4C 1720 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 2400+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
OO2FC4 6D08 2E4UE 1721 MVW RDDCB+14,R5 ADDR OF READ BUFFER 2401+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
0OO2FC8 OBFF 1722 MVBI X'FF*,R3 CLE O F* 2402+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
OO2FCA 2BAC 1723 FFN 3 (RS) * 2403+ 
OO2FCC 6802 2FD6 1724 B x16 G ISSUE START CS DIAG CMD 2404+* CALLING SEQUENCE 
1726 COPY TVAXEQ OOMART78 2405+* 
nes Roe OFF sr epes SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
55 SEHR RERE Es 055 6 RRNA WERE URET OE LER AEN 0055 awe es 2408+* RETURN CONTROL 
2293+* 2409+ 
rae SUB-ROUTINE ee el B (R6) * RETURN TO USERS ERROR HANDLER 
+ + 
2296+* EXECUTE INPUT AND OUTPUT COMMANDS PIGMEE SECS OCSCSOSOSS OSS CCS SS LSS SC SCS OCS OSS SCO CS LS CSCS SSS CCCS SSS STS SSS LS Le Le Te 
2297+ 2413+4+* 
2298+* PURPOSE 2414+* CC O= DEVICE NOT ATTACHED 
2299+* 2415+* FOR 1= DEVICE BUSY 
2300+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2416+* I/0 2= DEVICE BUSY AFTER RESET 
2301+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 2417+* 3= COMMAND REJECT 
2302+* 2418+% Y= INTERVENTION REQUIRED 
2303+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 24194+% 5= INTERFACE DATA CHECK 
23044+%* THE I/O COMMAND. 2420+* 6= CONTROLLER BUSY 
2305+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 24U21+% 7J= I/O COMMAND EXCEPTED 
2306+* ISSUED BY THIS SUBROUTINE. 2422+% 
2307+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 003042 706E 2423+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
2308+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 003044 336A 2424+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
2309+4+%* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 003046 C328 2D70 2425+ MVB R3,SI0IN * PUT IN LOG OUT AREA 
2310+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, OO304A 68D2 0000 2426+ B (R6) * RN TO USER ERROR HANDLER 
23114+%* MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. 2428+ 3 IO ROR I RG CG ic ocak ok ao 7 A PR 7 6** 
2312+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 24294% IL 
2313+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE sve START'®. 2430+* SUB-ROUTINE IL 
2314+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2431+%* IL 
2315+* STARTS TO DETERMINE A LOST INTERRUPT. , 2432+%* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* IL 
2316+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2433+% IL 
2317+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2434+ PURPOSE IL 
2318+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. ' 2435+* IL 
2319+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. ’ 2436+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
2320+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 243 7+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
2321+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 2438+* EXPECTED CODE. IL 
2322+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 2439+% TL 
2323+* ISSUED BY THIS SUBROUTINE. 2440+* CALLING SEQUENCE IL 
2324+ 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 244 14% IL 
2325+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 24U42+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
2326+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 24U434+* IL 
2327+* Z24U444+* RETURN CONTROL IL 
2328+* CALLING SEQUENCE 2445+%* IL 
2329+% 244U64+* svc EXIT RETURN TO USER VIA SUPVR IL 
2330+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 244 74+* IL 
2331+%* 244 8+ a OC a GO COC lag aici ik lak kkcictok iciok kk 7 7 
2332+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 24494 IL 
( 2333+* --> BAL XI01 MOD PARM PRELOADED IN 'TOMOD! 2450+* CC O= CONTROLLER END ISB QO= ADD STATUS IL 
2334+%* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 2451+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
2335+* --> BAL XIOCS-4,R6 AUTO CS STATUS (FOLLOWING other XIO 2452+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
2336+* - AND DOES NOT POST INTERRUPT STATUS) 2453+% 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
2337+* 245U4+% 4= ATTENTION INTERRUPT 4= STG DATA CK IL 
2338+* RETURN CONTROL 2455+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
2339+* 2456+% 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
2340+* BXS R6, 2) RETURN TO USER NO ERROR 24U574+% 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 
2341+* OR B 6) * RETURN AND RETEY ON ERROR 24584+% IL 
234 24% RR ICICI IGOR OR ICC IOI ao dai ak kok a ikea ak ak ak OO304E 706F 2U59+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
QOO2FDO CB25 30E4 2344+XIO MVWZ IOMOD, R3 SET MOF OF O FOR CYCLE STEAL OP 003050 336A 2460+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
OO2FD4 500E 2345+ J XxIoO1 CS I/O'S ARE NOT RETRIED 003052 4424 2D68 2461+ MVA OPTN1 R4 SET UP BASE ADRS IL 
2346+* 003056 4C28 2462+ TBT an c§) IS CS IN PROGRESS IL 
0OO02FD6 4020 30E4 O00D 2347+XIODG MVWI X*'O00D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 003058 1006 2463+ JOFF NTES * NO Il. 
OO2FDC 500A 2348+ J XIO1 GO TO CS OPS OO0305A 4C6A 2464+ TBTS (a ce) TURN ON CYCLE STEAL INTER ERROR IL 
2349+* 00305C 6FOD 2D7C 2465+ MVW R7,DEV SAVE CS ERR ISB VALUE, BITS O-7 IL 
OO2FDE 4cCAA 2350+ TBTR R4Y,CE RESET CS STATUS INTER ERROR INDICAT. 003060 C328 2D7D 2466+ MVB R3,DEV4+1 * AND THE COND CODE IL 
OO2FEO 4C68 2351+ TBTS R4Y,CS SET "CYCLE STEAL STATUS! IN PROGRESS 003064 500A 2467+ J INTR1 IL 
OO2FE2 4020 30E2 2EF10 2352+XIOCS MVA SDCB ODCB SET UP CONTROL BLOCK FOR SVC CALL 003066 4C24 Z2468+INTES TBT {Rt XE) TEST EXPECTED ATTEN / ERROR IND IL 
OO2FE8 4020 30E4 OOOF 2353+ MVWI X*O000F", TOMoD SET CYCLE STEAL MODIFIER 003068 1002 2469+ JOFF NTET BCH IF NOT EXPECTED IL 
QOO2Z2FEE 4C28 2354+ TBT sh CS) IS CS IN PROGRESS, ERROR CONDITION OO0306A F304 2470+ CBI 4u,R3 IS THIS AN taTTENTION!' INTR IL 
OO2FFO 1213 2355+ JON To2 * YES, BYPASS SAVING I/O ADRS 00306C 1006 2471+ JE INtR1 * YES, BCH TO END INTR SEQUENCE IL 
QO2FF2 6E0D 2D74 2356+XI0O1 MVW R6, LSTIO SAVE TAR FOR RETRY IF REQUESTED OO306E 4C61 2472+INTET TBTS AF FR) SET ERROR ON I/O COMMAND CNTL BIT IL 
OO2FF6 4324 2D7E 2357+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 003070 5004 2473+ J NTR IL 
QOO2FFA 6D08 30E2 2358+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 2474+ THE ERROR INTERRUPT USES THE SAME IL 
OO2FFE OFIA 2359+ MVBI 26,R7 * THE NUMBER OF MOVES 2475+%* ENDING SEQUENCE AS THE NORMAL INTR IL 
003000 2D64 2360+ MVFN §Rd) $83) MOVE 1 STATUS WORD AND ADJUST QU 774 8 RE ER RI IO III IOI ok goktok tok ok doko k 1 2A PR T6IL 
003002 OBFF 2361+ MVBI oS, R CLEAR CYCLE STATUS BUFFER 2478+% IL 
003004 4524 2D8E 2362+ MVA CSBUF,RS5 * TO ALL ONES * 2479+* SOUBROUTINE IL 
003008 OFTA 2363+ MVBI 26,R7 * 2480+* IL 
OO300A 2BAC 2364+ FFN R3, (R5) * 2481+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL!* IL 
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2482+ IL 0030FC CB25 2D6C 2598+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
2483+* PURPOSE IL 003100 4724 30EA 2599+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
54844 IL 003104 6014 2600+ SVC CICB * CONNECT IT TO THIS DEVICE 
Z4B5+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 003106 6AD0O 0000 es BN (R6) * ERROR RETURN TO USER 
+ IL 
2487+* CALLING SEQUENCE IL 00310A 8828 2DAE 30E2 2603+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
5488 4% IL 003110 4724 30DE 2604+ MVA IOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
2489+4% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 003114 4020 2D70 0708 2605+ MVWI X'0708', $10IN INITIALIZE CONDITION CODE STORAGE 
2490+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL QO311A CB25 2D72 2606+ MVWZ SISB,R3 * AND CLEAR OLD ISB VALUE 
2491+%* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 00311E 6EOD 2D74 2607+ MVW R6,LST10 SET UP ADDRESS THAT STARTED LAST T/0 
2u92+* COMMON SECTION IS HANDLED HERE. IL 003122 600C 2608+ SVC PREP * AND CALL ON SUPVR 
549 34% IL 003124 5601 2609+ BXS (R6, 2) RETURN TO USER 
S494+* RETURN CONTROL IL BO VLE EUR AEE E ATES PESAASSA SSCS ESERACENESERAESAN SES AERESSRESERESTCEROGNERT DSS 
2495+* TL + 
249 6+ * SVC EXIT RETURN TO USER VIA SUPVR IL Seunee SUBROUTINE 
+ ve 
219 842A OO IO IOI IC IG OC GOI ICSI OO IO OO dak ak ktok dakok tod ak ok TT 2615+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
003072 7068 2H99+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 2616+* 
003074 336A 2500+ SRL 13,R3 POSITION INDICATORS IN R3 IL 2617+* PURPOSE 
003076 4424 2D68 2501+ MVA OPfN1,R4 SET UP BASE ADRS IL 2618+% 
0OO307A 4c63 2502+INTR1 TBTS RG, SET INTERRUPT RECEIVED Il 2619+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
00307C 4C28 55034 TBT R4’cs IS 'CS IN PROGRESS' ON IL 2620+* SET THE "NO GOOD! CONTROL RIT, THEN LOG THE DATA THAT HAS 
00307E 1204 25044 JON NTh2 * YES. BCH AROUND UPDATE IL 2621+* BEEN FOUND TO HELP THE OPFRATOR DEFINE THE ERROR CONDITION. 
003080 C328 2D71 2505+ MVB R3,$LO0IN+1 SAVE INTERRUPTING CC CODE TL 2622+%* 
003084 6F0D 2D72 2506+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS TE 2623+* CALLING SEQUENCE 
003088 2507+INTR2 EQU * TL 2624+%* 
2508+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 2625+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003088 3521 2509+ SLL 4 RS POSITION INTR LEVEL AND PUT TL 2626+* 
OO0308A 0501 2510+ ABIL 1,R5 * IN "It Bre IL 2627+* --> B SERRS SET '"NG' PIT AND CONVERT DATA TO LOG 
00308C CD24 2DAE 2511+ CW $INTL, R5 IS THIS THE CORRECT INTR LEVEL IL 2628+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
003090 1002 2512+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 2629+* 
003092 4C66 2513+ TBTS (R4,SLE) SET INTR LEVEL ERROR CONTROL BIT If 2630+* RETURN CONTROL 
003094 4c61 2514+ TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 2631+% 
003096 4cCA2 2515+INTR3 TBTR RG, XI WAS INTERRUPT EXPECTED IL 2632+* B TURTN* RETURN TO MDI 
003098 1204 2516+ JON nrkx * YES, EXIT OFF THIS INTR LEVEL IL 2633+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
00309A 4cC60 2517+ TRTS fee MI) * NO, SET MYSTERY INTR CONTROL BIT IL 2634+% 
00309C F304 2518+ CBI R3 ATTENTION INTERRUPT? Ae DG BOAR RK RK HK OK CK 2K 2 fe ee ok a ci a 2 ok kk oo ok 2 i fe ok ok kak ak ke kok of ate ok kk 2K Rk fe ke ik otc ake aie ae akc akc fe 
00309F 1001 3519+ JE INTRX YES TL 003126 4020 1818 8000 2636+$ERR$S MVWI X'8000! ,TUSTATUS SET ON 'NO GOOD! STATUS BIT 
OO030A0 4C6C 2520+ TBTS (Ru NG) FRROR, UNEXPECTED INTERRUPT IL 00312C 4724 32F6 2637+ MVA HEBLK, RY GET ADRES OF CONTROL BLOCK 
0030A2 6006 2521+INTRX SVC XIf EXIT fHIS LEVEL VIA SUPVR TO PGM IL 003130 601A 2638+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
75 2 34 OI OR oo GO io ok doi ak oidgok kok aioe 3 F ERT 6 ** 003132 4020 188E 4040 2639+ MVWI X'*4O40!,TUWORK+116 
35 244* 003138 4020 1890 4040 2640+ MVWI X'4040', TUWORK+1718 
2525+ THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 00313E 4020 1892 4040 2641+ MVWI X*"4O40', TUWORK+120 
25264+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 003144 ODO4 2642+$PRNT MVBI hoe 
25274+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003146 4324 181A 2643+ MVA TUWORK, R3 SET UP BUFFER STORAGE 
2528+% 00314A 6BOD 32EE 2644+ MVW  R3,BUFPT 
2529+% 00314 4124 31CA 2645+ MVA  LINE1,R1 
OO30A4 4CA4 2530+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 003152 OFO4 2646+ MVBI 4,R7 
0030A6 6ACO 0002 2531+ BN RG» 2) * YES, EXIT THIS ROUTINE 003154 0£08 2647+ MVBI 8,R6 
OO30AA 4CA8 2532+ TBTR (R4&,CS) WAS AUTO CS IN PROGRESS 003156 2B24 Z2648+MVBUF MVFN (3). (R1) 
OO30AC 1006 2533+ JOFF IOCV * NO, CONTINUE CHECKING 003158 OFO4 2649+ MVBI ck 
OO30AE 4C2A 2534+ TBT (Ra CE) ts C&S IN AN ERR CONDITION 00315A OA4O 2650+ MVBI X*40',R2 
0030B0 1002 2535+ JOFF XIOCO * NO, BCH 00315C C258 2651+ MVB  R2 gris 
0030B2 68D2 0000 3536+ B R6) * cs ERROP 00315E BEFB 2652+ JcT MVBUF,R6 
0030B6 4C69 2537+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 003160 OEFO08 2653+ MVBI 8,R6 
0030B8 5601 2538+ BXS R6, 2 GO TO USER 003162 7921 002c 2654+ AWI «44 R14 
OO30BA 4C21 2539+XIOCV TBT R4,ER) WAS ERFOR INTR CONTROL BIT ON 003166 BDF? 2655+ JCT  MVBUF,RS 
0030BC 100D 2540+ JOFF xXI0cx * NO, FXIT THIS ROUTINE 003168 4020 1802 FIFO 2656+ MVWI PIDMSG10,PID+2 
2541+* 00316E 4020 19B8 32F4 2657+ MVA FAKETU,@DCADD1 
0030BE C520 2D71 2542+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 003174 4020 19BA 32F0 2658+ MVA DC2PT, @DCADD2 
003002 F502 5543+ CBI 2-R5 IS THIS CC=2 00317A 402c 19C4 0080 2659+ OWI BIT0080,SUPSTAT 
0030C4 1003 2544+ JE xfoco YES 003180 4324 2D6E 2660+ MVA $TUID,R3 SET UP BUFFER STORAGE 
0030C6 F506 55u5+ CBI 6.R5 IS THIS CC=6 003184 6F13 18BA 2661+ BAL TUMSGNTR*,R7 GO TO MESSAGE WRITER 
0030C8 68D1 0000 2546+ BNE (Be) * * NO, BCH TO ERROR HANDLER 2662+* 
0030CC C520 2D72 25474+XI0CQ MVB ISB,R GET LAST ISB DATA BYTE AND IF CS 003188 2663+SCONX Feu * 
0030D0 6A00 2FDE 2548+ BN XIOCS- * AVAILABLE, GO AND GET IT 003188 C720 19D0 2664+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
0030D4 68D2 0000 2549+ B R6) * ERROR 00318C 6013 2665+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
0030D8 CB25 2D6C 25504+#XIOCX MVWZ PTN3, R3 CLEAR OUT OPTION 3 CNTL BITS 00318E 6812 2DB0 2666+ B TURTN* RETURN TO MDI SUPERVISOR 
0030DC 5601 2551+ BXS (R6, 2$ RETURN TO USER VIA REG 6 2667+* 
2552+* 003192 9009 2668+BEGIN i {9908} BER OF LINES TO PRINT 
2 +% 1/0 PARAMETER LIST E LENGTH = 8 CHAR 
25 544% / 003196 5cC5C40C1C2D6D9E3 2670+ Dc C'** ABORT! 
0030DE 19D0 2555+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS Q0319E 0028 2671+ DC A (0040) E LENGTH = 4O CHAR 
0030EO0 3042 2556+ DC A (XIOER) ERROR ROUTINE ADRS 0031A0 E3E4C9CUUOCID6CID 2672+ DC C'TUID IOIN T ID DATA cscc * 
0030EF2 0000 25574+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 0031C8 0028 2673+ DC A (0040) E LENGTH = 4O CHAR 
0030E4 0000 2558+IOMOD DC A (*-* MODIFIER OO31CA 4OKOKO4O4OKO4O4O4 26744+LINE1 DC Cc! t 
0030F6 0000 2559+ DC A (*-% ADRS OF LAST SVC CALL 0031F2 0028 2675+ DC A (0040) E LENGTH = 4O CHAR 
0030EF8 0000 2560+IORSP DC Rk SECOND WORD OF LAST IDCB 0031F4 C3D5E3D340C4UC3C2F 2676+ DC C'*CNTL DCB1 G& CHAD BYCT ADRS ! 
2561+* 00321C 0028 2677+ DC A (0040) E LENGTH = 4O CHAR 
2562+* INTERRUPT CONTROL BLOCK FOR I/0 COMMANDS 0OO032TE 4OSOFOKO4O4OEOYO4 2678+4+LINE2 DC cs ' 
2563+* 003246 0028 2679+ DC A (0040) E LENGTH = 4O CHAR 
O0O30EBRA 2S644INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 003248 C3E260FO4OC3E2Z60F 2680+ DC C*CcS-0 CS-1 4 CS-5 CS-6 CS-7 ! 
0030EC 2565+ DC A (INTOK INTERRUPT OK RETURN ADRS 003270 0028 2681+ DC A (0040) E LENGTH = 40 CHAR 
0030EE 2566+ pc A (INTER INTERRUPT ERROR ADRS 003272 4YO4O4O4OKOKO4O4O4 2682+LINE3 DC cf ' 
0030F0 2567+INTCC DC X'0003! INTERRUPT CODE EXPECTED 00329A 0028 2683+ DC A (0040) EF LENGTH = 4O CHAR 
25 69 42 OI IO IORI OR log i ao otic tak tcgoitokak tok took 1 TMA Y7 6% * 00329C C3E260F840C3E260F 2684+ DC Cc'cs-8 CS-9 C ' 
2570+ 0032C4% 0028 2685+ DC A (0040) E LENGTH = 4O CHAR 
2571+* SUBROUTINE 0032C6 404040404 04040404 2686+LINEG DC c! ' 
2572+* + 
2573+* CONNECT INTERRUPT CONTROL BLOCK §& PREPARE DFVICE QOO032EE 0000 2688+BUFPT DC A (*-* 
55704+% 0032FO 3192 26894+DC2PT DC A PEGIN) 
5575+* PURPOSE 0032F2 0101 26904FIXTU DC X¥*0101! 
55 76+% 0032F4 0101 2691+FAKETU pc xX'01018 
2577+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OOFIFO 2692+PIDMSG10 EQU  X'FI1FO! 
2578+% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 2693+BITO080 EQU X'OO80! 
2579+* TO INTERRUPT. 2694+ 
5580+ 2695+ DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
2581+* CALLING SEQUENCE 2696+ 
2582+* 0032F6 OO3A 2697+HEBLK DC A(58 NUMBER OF BYTES TO CONVERT 
2583+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: Q0032F8 2D6E 2698+ DC A ($T as FROM ADRS 
2584+ 0032FA 181A 2699+ DC A (TUWORK) AND THE TO ADRS 
2585+* --> BAL $SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 2700 COPY T7A50 21APR78 
2586+* --> BAL $SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 2701 T7A50O TUIT 1 
2587+* 270 242 CISCO tio ogo googie dk icici 06 P BB7 64% 
2588+* RETURN CONTROL 2703+* 
2589+ 2704+* TEST UNIT 
2590+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 2705+* 
Zo91+% OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED ote 
+ 
259 342 COICO III I I FRI I RI IK ik fk ak at ke ik ak ak akc 3 2708+* PURPOSE 
O0030F2 OF06 2594+$CONC MVBI 6,R7 NUMBFR OF BYTE TO CLEAR 2709+* 
OO30F4 OBOO 2595+ MVBI 0O,R3 * AND THE DATA TO USE 2710+* TEST THE CONFIGURATION RECORD FOR A FILE PRESENT AT THIS 
O0O30F6 4524 2D76 2596+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 2711+* ADDRESS. 
OO30FA 2BAC 2597+ FFN 3, (R5) * 2712+% 
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2713+* CALLING SEQUENCE 2829+% ‘ 2 cewens CYCLE STEAL STATUS ILO/INTR ERROR 
2714+% 2830+* 3 32 - W7.....--eCYCLE STEAL STATUS WORD 4 
2715+% MDI=OTUXX,T7A50,1,80,0F* 2831+* . U8 = 63624254 6% CYCLE STEAL STATUS WORD 5 
2716+* : 2832+* 
2717+* TURESUL- BIT (S). 0 Sscccouws FILE NOT ATTACHED 2833+* RETURN CONTROL 
2718+* 2834+% 
Z113+% RETURN CONTROL 2835+% B TURTN* RETURN TO MDI SUPERVISOR 
+ + 
2721+ B TURIN* RETURN TO MDI SUPERVISOR DBT + A EK KH HE I I RR ROK a a ke Ce 2 I a i a i ak a 2 a RC a a a a aK eRe aca ae ie OR ak i ek 2 2c 
2722+* 003388 6FOD 2DB0 2838+T7A03 MVW R7,TURIN SAVE PETURN ADDRESS 
PUMPER TESTS SLE SSCS SSS SSS SSS SC SSCS SCS CSCC OCOCCSOSCS COSC CSCC CSCSCOS oS SS SSS Te Se eT es 00338C 4020 2D6E 7A03 2839+ NVWI X'7A03", $TUID SAVE TU ID FOR DISPLAY 
0032FC 6FOD 2DB0 2724+T7A50 MVW R7, TURTN SAVE RETURN ADDRESS 003392 4424 2068 2840+ MVA OpTN1, R4 SET UP POINTER ADRS IN R4 
003300 4020 2D6E 7A50 2725+ MVWI X'7A50", $TUID SAVE TU ID FOR DISPLAY 003396 6503 30F2 2841+ BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
003306 4424 2D68 2726+ | MVA  OPTN1,R4 SET UP POINTER ADRS IN R4& 00339A 3126 Ae DC A (SERR$) ERROR ADRS FOR INVALID PREP 
+ 
00330A D025 18C8 2728 MVDZ TURESUL,RO CLEAR THE RESULTS AREA 00339C 4224 18C8 2844 MVA TURESUL, R2 LOAD ADDR TURESULS BUFF IN REG 2 
00330E 4224 18C8 2729 MVA  TURESUL, R2 LOAD RESULTS BASE REG. 0033A0 4020 2D70 0708 2845 MVWI X'O708',$IOIN INIT THE CONDITION CODES 
003312 802B 3320 19D4 2730 CR NULL, DEVADD+4 TEST IF NO FILE ATTACHED 0033A6 6908 189A 2846 MVW TUPARN1,R1 SET UP PARMN ADRS 
003318 1801 2731 JNE  T7A506x NO CONTINUE THIS MAP 0033AA 8118 33F8 2847 MVB (R1) + T7AO3L * AND SET IN FUNCTION-MODIFIER 
00331A 4A4O 2732 TBTS (R2,0) SET NO FILE BIT ON 0033AE 8028 19D0 33F9 2848 MVB  DEVADD,T7A03L+1 * FOLLOWED BY THE DEVICE ADRS 
2733 T7ASOX TXIT * RESULTS AND EXIT 0033B4 8118 33FA 2849 MVB R1)+,f7A03L42 * AND SET IN EVEN BYTE DATA 
00331C 6802 3188 2734+T7A50X B $CONX RETURN TO MDI CONTROLLER 0033B8 8118 33FB 2850 MVB R1)+,T7A03L+3 * AND SET IN ODD BYTE DATA 
273547 IO II I IO IC RO IOI IO RIOR II RI RR I ia aig aka 3 a) ke oc ae ok ake ak 0033BC )pD020 33F8 2851 MVD 7A 3L,R0 GET FUNCTION, MODIFIER AND DEV ADRS 
003320 FFFF 2736 NULL DC X'FFFF! MASK FOR NULL ENTRY 2852 * * AND THE SECOND WORD OF THE IDCB 
2738 COPY T7A01 260CT77 0033c0 680C 33F8 2853 IO T7AO03L ISSUE THE I/O COMMAND AND 
2739 T7A01 TUIT 0033C4 70AE 2854 CPLSR R5 * GET THE I/O CONDITION CODE IN R5 
270 0 42 CI RICO ICO IOI Io Ia a i iiaiiaiaac ak dak totokQ 6 P EB 7 6 * 0033C6 356A 2855 SRL 13,R5 POSITION CC IN THE RESULTS FIELD 
27414* 0033C8 C528 2D70 2856 MVB  R5,$I10IN * AND SAVE If IN THE RESULTS 
2742+* TEST UNIT 0033CC ODFF 2857 MVBI -1,R5 SET UP FOR DELAY 
2743+ 0033CE 6002 2858 T7A03K SvC. IDLE WAIT FOR INTERRUPT 
27444% DIRECT PROGRAM CONTROL TEST UNIT 0033D0 4CA3 2859 _ | TBTR Aue IN) HAS IT COME YET 
2745+4+% 0033D2 1201 2860 JN 7A603M * YES, GET OUT OF DELAY 
2746+* PURPOSE 0033D4 BDFC 2861 JCT MT7A03K,R5 * NO, CHECK FOR TIME OUT 
yidek —cunpe panans ghaspe og25 ¥Beg 18® 3855 F7RO3" EUR, Rue SGns Sea cling gynte§ Sptugeeuzs aUpeEe 
METERS ARE NEEDED FOR THE EXECUTION OF THIS TU D ie 
2749+ e na BRE 0033E0 6£E03 2FE2 2864 BAL XLOCS,R6 GET CYCLE STEAL STATUS 
2750+%* 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X'60' FOR PREPARE 0033E4 33F4 2865 DC A(TO3ER) OIO ERROR 
2751+* 2. TWO BYTES OF DATA TO BE USED IN THE SECOND PART OF THE IDCB, 0033E6 4C21 2866 TBI { 4, ER) EXCEPTION INTERRUPT OCCUR? 
2752+* ~ IE, X'0005* TO SELECT LEVEL 2 FOR AN INTERRUPT. 0033E8 1205 2867 JON O3ER YES - SET CSS INTR ERROR BIT ON 
2753+t* 0033EA 9028 2D96 18CC 2868 MVD CSTL5,TURESUL+4 MOVE CSS WORD 4 & 5 IN RESULTS 
2754+* CALLING SEQUENCE 2869 X7A03 TXIT * RESULTS AND EXIT 
2755+%* 0033F0 6802 3188 2870+X7A03 B SCONX RETURN TO MDI CONTROLLER 
2756+* MDI=OTUXX,T7A01,2,0708, EQ, PLNG=6,PRAM=FMXXXX'! 987 14 IO I IC IG GC oR ar I a a a a ic i ac ak ak ac ak eke ae aac ak ak ak 
2757+%* : 2872 * 
2758+* TURESUL BIT(S) 0 — 15. cccecae OIO CONDITION CODE 0O033F4 4A58 2873 IO3ER TBTS R2,24) CYCLE STEAL STATUS OIO ERROR 
otedee = ( dae SD Vaerteae «««SECOND WORD OF IDCB 0033F6 5OFC aaa , J $5463 RETURN TO MDI 
Z7oi+s RETURN CONTROL 2876 : IDCB FOR DIRECT PROGRAM CONTROL COMMAND 
+ 
2763+%* B TURTN* RETURN TO MDI SUPERVISOR 0033F8 0000 2878 T7AO3L DC X*OQ000! FUNCTION-~MODIFIER-DEVICE ADDRESS 
27644+% 0033FA 0000 2879 DC X'O0000! IMMEDIATE DATA BUFFER 
276 54 RIOR; I IC CII IO IC IC I IR I Io look ak ok ok 2881 COPY T7AO4 260CT77 
003322 6FOD 2DBO 2766+T7A01 MVW R7,TURTN SAVE RETURN ADDRESS 2882 T7AO4 TUIT TOTER 
003326 4020 2D6E 7A01 2767+ MVWI xX*7A01' $TUID SAVE TU ID FOR DISPLAY 9 883+ CR GIR OR a ako ik aia i ciate tok 4% 06 FEB 7 6% * 
00332C 4424 2D68 2708+ | MVA OpTN1, RG SET UP POINTER ADRS IN R4 eae eae ONES 
+ 
003330 4724 30EA 2770 MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND 2886+* 
003334 6014 2771 SVC. CICB ’ * CONNECT IT TO THIS DEVICE 2887+* CHANNEL INTERFACE TEST 
003336 4020 2D70 0708 2772 MVWI X*0708',$IOIN INIT THE CONDITION CODES 2888+* 
00333C 6908 189A 2773 MVW TUPARM1,R1 SET UP PARM ADRS 2889+%* PURPOSE 
003340 8118 3384 2774 MVB (Ri) +, TAROT * AND SET IN FUNCTION-MODIFIER 2890+* 
003344 8028 19D0 3385 2775 MVB DEVADD,T7A01I+1 * FOLLOWED BY THE DEVICE ADRS 289 1+* TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS 
00334A 8118 3386 2776 MVB R1)4+,T7A011+42 * AND LOAD IMMEDIATE DATA 2892+* 
00334E 8108 3387 2777 MVB R1j -f7A011+3 * 2893+* CALLING SEQUENCE 
003352 D020 3384 2778 MVD TAD{T,RO GET FUNCTION, MODIFIER AND DEV ADRS 2894+% 
2779 * 2895+* THE HOST WILL PREPARE THE 1/0 DEVICE TO INTERRUPT ON LEVEL ZERO 
003356 680C 3384 2780 Io T7AO1L ISSUE THE I/O COMMAND AND 2896+* AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS 
00335A 70OAE 2781 CPLSR R5 * GET THE I/O CONDITION CODE IN RS 2897+* COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS. 
00335C 356A 2782 SRL 13,R5 RIGHT-JUSTIFY CC AND SAVE IT 2898+* LEVEL THREE WILL NOT OCCUR BECAUSE THIS PROGRAM WILL BE RUNNING 
00335E C528 2D70 2783 MVB R5,$10IN * IN THE RESULTS FIELD tyre AS A BACKGROUND PROGRAH. 
003362 3042 2784 SRL 8 RO POSITION FUNC/MOD IN RIGHTMOST BYTE 2900+* : 
003364 FO6F 2785 CBI X'6F",RO WAS A DEVICE RESET DONE? 2901+%* MDI=$TUXX,T7A04,02,0000, EQ 
003366 1803 2786 JNE DLyD+4 NO - SKIP DELAY 2902+% , 
003368 ODFF 2787 MVBI -1,R5 SET UP DELAY COUNT 2903+%* TURESUL BIT(S) 0 - 10 .....--- NOT USED 
00336A 6002 2788 DLYD svc IDLE DELAY 29044+* ‘ 2 eee ss --- FALSE STORE PROTECT CHECK 
003365 3022 5490 SRL OUTRO’ P so0et* i 3° g trtiitir Shore prov nor on 1s Isp 
R R POSITION FUNC IN RIGHTMOS + : Se 
003370 F002 2791 CBI x'02',RO WAS A READ OR READ STATUS OP EXEC? 2907+* - 6 .----- -- STOR PROT CHECK NOT REPORTED 
003372 1D03 2792 JGT  T7A01k NO - SEND BACK ONLY OIO CC 2908+* - To wseeeee- INVAL STOR CK NOT ON IS ISB 
003374 8828 3386 18CA 2793 MVW T7AO1I4+2,TURESUL+2 LOAD DATA READ INTO RESULTS AREA 2909+* - G .--ee+--- WRONG CONDITION CODE 
00337A 8828 2D70 18C8 2794 T7A01X HUN SIOIN, TURESUL PUT ANY INTR COND CODE FOUND IW Satie : (Ore ay ec oe eee 
XIT * RESULTS AND EXIT + 5 - 17 ..------ 
003380 6802 3188 2796+ B $SCONX RETURN TO MDI C 2912+* . V1 acces »e- CYCLE STEAL STATUS ERROR 
ETE TE Lee eC Lee Pee Te TE OEE. OEE PEE thr ht iit ey ee ee ee eee 2913+* . 12 ..------ FILE NOT READY 
2798 * 2914+% : 13 24a »-- OIO CC ERROR 
2799 * IDCB FOR DIPECT PROGRAM CONTROL COMMAND 2915+* : ) eee WRONG INTERRUPT LEVEL 
003384 0000 ALG TTAOII DC "0000 sg 4 gee : 16 a CYCLE STEAL STATUS WORD oe 
X ' FUNCTION-MODIFIER-DEVICE A S + . = seceeee 
003386 0000 2802 DC X*0000° IMMEDIATE DATA BUFFER eee 2918+* - 32 - YT eeeeeeee CYCLE STEAL STATUS WORD 5 
2804 COPY T7A03 260CT77 2919+* 
2805 T7A03 TUIT 2920+* RETURN CONTROL 
2806 + 8% KE ICC II COICO OG GK iG ok ik 06 FEB 7 640% 2921+* 
2807+* 2922+% B TURTN* RETURN TO MDI SUPERVISOR 
2808+* TEST UNIT 2923+* 
2809+* 29 2 1+ RRO OK OR IO OO Om OR Ia mak ik ik aa ai i i iC ICR af a a teak ok 
2810+* DIRECT PROGRAM CONTROL INTERRUPTING CMDS 0033FC 6FOD 2DB0 2925+T7A04 MVW R7, TURTN SAVE RETURN ADDRESS 
2811+* 003400 4020 2D6E 7A04 2926+ MVWI X'7A04',,$TUID SAVE TU ID FOR DISPLAY 
2812+* PURPOSE 003406 4424 2D68 2927+ MVA  OPTN1,R4 ‘ SET UP POINTER ADRS IN R4& 
2813+* 00340A 6E03 30F2 2928+ BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O RL 
28 1h+* THREE PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE: OO340E 3568 Betas DC A (TO TER) ERROR ADRS FOR INVALID PREP 
2816+* 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X'4X* FOR DPC WRITE 003410 OFOC 2931 MVBI 12,R7 CLEAR ‘TU* RESULTS BUFFER 
2817+* 2. TWO BYTES OF DATA TO BE USED'’IN’ THE SECOND PART OF 003412 0BO00 2932 MVBI 0, k3 
2818+* - IE, X'0005* TO BE SENT TO THE DEVICE. ThE IDcB, 003414 4224 18C8 2933 MVA TOURESUL, R2 * 
2819+* xs 003418 2B4C 2934 FFN  R3, (R2) x 
2820+* THIS TEST UNIT PREPARES THE DEVICE AND EXPECTS AN INTERRUPT OO341A O2F4 2935 ABI -12,R2 AJUST POINTER TO BEG OF RESULTS RUF 
2821+* AND WILL SEND BACK THE CONDITION CODES OF THE I/O AND INTR. 00341C 4724 30DE 2936 MVA IOBLK,R7 RESET DEVICE 
2822+* 003420 6008 2937 SVC RESET * 
2823+* CALLING SEQUENCE 2938 OR OR ROR IO II am a tI tok tok 
2824+* 2939 * TEMPORARY DELAY 
2825+* MDI=OTUXX,T7A03,2,0708, EQ, PLNG=6,PARM=FMXXXX'! 2940 * 
2826+* é 29.41 =O OR riot tok ior io ak fk kkk ick 
2827+* TURESUL BIT (S) SS Siess ~--OIO CC, INTR CC 2942 * 
2828+* 2 16 - 23.22.22. INTERROGPT STATUS BYTE 003422 4024 FFFF 2943 MVWI X'FFFF*',RO DELAY ROUTINE TO GET BY BUSY AFTER 
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I7A00 --- CHANNEL/4963 DISK UNIT P/N=8327647 EC=375222 PAGE 11 I7A00 --- CHANNEL/4963 DISK UNIT P/N=8327647 EC=375222 PAGE 111A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003426 6003 Sone TEMP BPS ee sf RESET arene PURPOSE 
ETT pene 2DAE 2946 MVW SINTL R1 SAVE CURRENT INTR LEVEL 3061+* TO CHECKOUT THE 4963 ATTACHMENT CARD DIAGNOSTICALLY. 
0OO0O342E 4020 2DAE FFF1 2947 MVWI X'FFF 4 orate SET UP INTERRUPT LEVEL FOR PREP 3062+* 
003434 4029 2DAE 0010 2948 ITST1 AWI x 101, SENT CONNER DEY CHht at bck LAG ee Sree CALLING SEQUENCE 
Enes gEe3 ei eat DEL Bee TER) ERROR - DEV COULDN'T BE CONNECTED 3065+* TOURESUL BITS): : Qed ws wes dsc eens TEST FAILED TO EXECUTE 
003440 4C64 2951 TBTS 4 XE SET EXPECTED ERROR BIT ON 3066+* ‘= g eer es eeeee FAULTY ROS DETECTED 
003442 6E03 2FE2 2952 BAL sRbEes be ISSUE CS STATUS OP TO CAUSE INTR 3067+* m deta ae ee eeeeDIAG READ DETECTED FAULT 
003446 3568 2953 DC A (TO 1ER) ERROR - NO CS STATUS AVAILABLE 3068+* a Des She ms soe as tes DIAG WRITE DETECTED FAULT 
003448 4C21 2954 TBT res ER) WAS THERE AN INTERRUPT ERROR? 3069+* ~ A eta al eae e«- READ ACCESS MEMORY FAULT 
OO344UA 127B 2955 JON Abit YES - SET APPROPRIATE BIT SWITCHES 3070+* % Does wrece eae @ GEN DIAG DETECTED FAULT 
00344C 802B 2E80 2D72 2956 CB BOM edey ISB = ZERQ? 3071+* 6 GC: areca So oveee OIO ERROR 
003452 6801 3564 2957 BNE TO1B NO — SET ERROR INDICATOR ON 3072+* js 15]: (CS: 2saxscecesae NOT USED 
003456 802B 19D0O 2D73 2958 CB DEVADD, $ISBt1 DEVICE ADDRESS RETURNED IN ISB? 3073+* < 1G. 34 So 6G ss eS CYCLE STEAL STATUS WD 5 
00345C 6801 3564 2959 BNE TO1B NO - SET ERROR INDICATOR ON 3074+ - aes | Se Spee eene et eae tee eae CYCLE STEAL STATUS WD 6 
003460 4O2F 2DAE 0021 2960 CONT CWI X'*21* ,SINTL HAS INTR LEVEL COME DOWN TO 2? 3075+* e OTs. 63* ow ae ike See I/O AND INTR CONDITION CODES 
003466 18E6 2961 JNE ITstT1’ * NO, BCH AND CONTINUE TEST 3076+* ~ 
003468 6802 3516 2962 B TO1C 3077+* MDI=STUXX,T7A05,01,00, EQ 
00346C 6808 18C4 2963 MVW TULAST, RO GET LAST VALID STG ADDRESS 3078+* 
003470 7802 0034 bocE SWI eetae *ii DERei RULTEAEO OE OROR COE tea cs Se ae RETURN CONTROL 
V TUBUFF,CSDCBt 
OOsa7A feee eee enne 2302 TO 1H aees (Ra, xEf SET EXPECTED ERROR yee B TURTN* RETURN TO MDI SUPERVISOR 
ete SFe3 ears 2304 De. A (TOLER) EAROR ota eau eee tangs age na ee cnn ee nt Ret Rae ree sth eee 
003482 4CA1 2969 TBTR R4,ER) INTERRUPT ERROR? 00356C 6FOD 2DBO0O 3084+T7A05 MVW TN SAVE RETURN ADDRESS 
003484 126F 2970 JON ARTE YES 003570 4020 2D6E 3085+ MVWI RST ORT $TUILD SAVE TU ID FOR DISPLAY 
003486 C824 2E1E 2971 CW CSDCB+14,R0 END OF PHYSICAL STORAGE? 003576 4424 2D68 3086+ MVA apt Nl, R4 SET UP POINTER ADRS IN R¥& 
00348A 1704 2972 JLLT T01G YES 00357A 6E03 30F2 3087+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
00348C 4029 2E1E OO1A oat ae foo INCREMENT CSS DATA BUOFFER ADDR 00357E 3126 nea e DC A (SERR$) ERROR ADRS FOR INVALID PREP 
Letty 3252 FFFO 2975 TO1G CWI X'FFFOt,RO MAX STORAGE? 003580 D025 18C8 3090 MVDZ TURESUL,RO CLEAR TU RESULTS STATUS AREA 
S33usK 492s ot fer 38re Por 0388 Boas face 3952 gUnESur “Rg : 
+14 ORCE INVALID STG ADDRESS 
Etet neers ornare 3334 ners Goh cee : ree EXPECTED ERROR 00358C 4224 18C8 3093 MVA TURESUL,R2 LOAD ADDR OF RESULTS AREA IN REG 
QOO34UA2 6£E03 2FE2 2979 BAL $r5e8 be CYCLE STEAL STATUS 003590 4020 2E4E 3758 3094 MVA RDBUF, RDDCB+14 LOAD ADDR OF READ BUFFER IN DCB 
OO034A6 3568 2980 DC A (TO1ER) ERROR 003596 4020 2E2E 3658 3095 MVA WRBUF. WRDCB+14 LOAD ADDR OF WRITE BUFFER IN DCB 
O0O034A8 4CA1 2981 TBTR R4,ER) INTERRUPT ERROR? 00359C 4020 2E40 2012 3096 ROS MVWI X'2015' 7RDDCB LOAD ROS CNTL WD IN DCB 
OO34AA 1049 2982 JOFF weit NO - INV STG ADDR NO REPORTED 0035A2 4020 2E4c 0004 3097 MVWI 4 PDDCBt 12 LOAD BYTE CNT IN DCB 
OO34AC 4O2F 2D70 0702 2983 CWI X¥'0702? , SIOIN ARE COND CODES 7 AND 2? 0035A8 6E03 2FBA 3098 BAL $HGRD R6 EXECUTE ROS TEST 
0034B2 1843 2984 JNE TO1P NO-ERROR Q0035AC 363E 3099 DC A (OTOER) BRANCH IF TEST FAILED TO EXECUTE 
0034B4 4O2B 2D72 0400 2985 TWI X'*Q400',SISB INVALID STORAGE BIT ON IN ISB? OO35AE 4CA1 3100 TBTR (R4,ER) DID A DEVICE END INTR OCCUR? 
OO34BA 103D 2986 JOFF T0O1Q NO-ERROR 0035RB0 6A00 3644 3101 BON ROSER NO ~- ROS TEST FAILURE 
0034BC 4020 2ETE 2D8E 2987 TO1Jd MVA CSBUF,CSDCBt 14 CS ADDRESS 0035B4 882B 3758 3102 CW RDBUF, RDBUF+2 DO CHECKSUM VALUES EQUAL? 
0034C2 coo 0232 Sane ave oad DETERMINE TYPE OF PROCESSOR OO35BA 6801 3644 3103 = BNE ROSER NO - SET TU RESULTS BIT (MISCOMPARE) 
Ente roe 2990 JNE TOIC JUMP IF NOT 4955 0OO35BE 4020 2E40O 2013 3105 MVWL X*2013",RDDCB LOAD DIAG READ CNTL WORD IN DCB 
0OO034CA 4020 2RF10 2000 2991 MVWI X'2000!,CSDCB CS CONTROL WORD 0035C4 4020 2E4C 0100 3106 MVWI 256,RD pee 12 LOAD BYTE CNT IN DCB 
0034D0 6208 2992 EN x*'os'? ENABLE STORE PROTECT KEY Q0035CA 6E03 2FBA 3107 BAL $DGRD,R EXECUTE ATTCH DIAG READ TEST 
0O034p2 4cé4 2993 TBTS RU,XE SET EXPECTED FRROR QOO035CE 363E 3108 DC a (OLOER) BRANCH IF TEST FAILED TO EXECUTE 
OO34D4 6E03 2FE2 2994 BAL tae be CYCLE STEAL STATUS TO CAUSE INTER 0035D0 4CA1 3109 TBTR A ER) DID A DEVICE END INTR OCCUR? 
0034D8 3568 2995 DC A TO 1ER) ERROR 0035D2 6A00 3648 3110 BON GRDD NO ~- ATTCH DIAG READ FAILURE 
OO34DA 4CAT 2996 TBTR fi ER) INTERRUPT ERROR? 0035D6 4724 0080 3111 MVWI 128,R7 SET UP EXPECTED DATA BUFFER (WRBU F) 
0034DC 1226 2997 JON Ab44 YES-FLASE STORE PROTECT KEY 0035DA 4324 3658 3112 MVA  WRBOF,R3 * 
OO34DE 4029 2E10 0100 2998 TO1K AWIL X*°0100",CSDCB SET OR INCREMENT KEYS 0OO035DE ODOO0 3113 MVBI 0,R5 * 
OO34E4 4C64 2999 TBS R4 XE SET EXPECTED ERROR 0035E0 CDD8 3114 AGAIN MVW R5§ {R3) * 
OO34E6 6E03 2FE2 3000 BAL reek 6 CYCLE STEAL STATUS 0035E2 7DA1 0101 3115 AWL x16 01" ,R5 * 
OO34EA 3568 3001 DC A (TO 1£R) FRROR 0035E6 BFFC 3116 JCT AGAIN, R7 * 
OO34EC 4CATI 3002 TBTR R4, ER) tO choo ERROR? O0O035E8 4724 0100 3117 MVWI 256 R7 GET NUMBER OF BYTES TO CHECK 
OO34EE 1021 3003 JOFF Bik STOR PROTECT NOT REPORTED OO35EC 4324 3758 3118 MVA RDBOF, R3 GET ADDRESS OF DATA REA 
OO34FO 402F 2D70 0702 3004 CWI X*Q0702',$S1IOIN ee Sone CODES 7 AND 2? OO35FO 4524 3658 3119 MVA WRBUF,R5 GET ADDRESS OF EXPECTED DATA 
O034F6 1821 3005 JNE TO1P Hee ERROR OO35F4 2BA6 3120 CFNEN ee (R5) DATA AS EXPECTED? 
et ae 4028 2D72 0200 ye Te aaa ae cd BIT NOT ON IN ISB? 0035F6 1828 S155 JNE DGR Dd NO - DIAG READ COMPARE ERROR 
903505 4O2F 2E10 2700 3008 CWI X*2700!,CSDCB ALL KEYS CHECKED? 0035F8 4020 2E20 0014 3123 MVWI <xX*'0014",WRDCB LOAD ATTCH DIAG WRITE CNTL WORD 
003506 18EB 3009 JNE TO1K NO OO35FE 4020 2E2C 0100 3124 MVWI 256,WRDCBt12 LOAD BYTE CNT 
003508 6308 3010 DSSP DIS x'os? DISABLE STORAGE PROTECT 003604 6E03 2FBO 3125 BAL $DGWR R6 EXECUTE ATTCH DIAG WRITE TEST 
00350A 4020 2E10 2000 3011 MV¥WI X'*2000! ,CSDCB RESTORE CS STATUS DCB 003608 363E 3126 DC A (OIOER) BRANCH IF TEST FAILED TO EXECUTE 
003510 4020 2E1E 2D8E 3012 MVA CSBUF,CSDCB+14 * OO360A 4CA1 3127 TBTR (R4,ER) DID ANY PARITY ERRRORS OCCUR? 
0035 16 690D ener Sail TO1C MVW RU STATE cut > CET E CER ERGO CEL nee wOube 00360C 121F ate ‘ JON DGWRT YES ~- FAULT DETECTED 
M Cc + 
pO3244 3058 et qece 3048 VD CST12,TURESUL+6 SAVE DIAG. SENSE BYTES OO0360E 4020 30E4 OOOE 3130 MVWI X'OOOE!', LOMOD LOAD READ ACCESS MEMORY IDCB MOD 
3016 TXIT RETURN TO MDI 003614 6E03 2F6A 3131 BAL SW R6 EXECUTE READ ACCESS MEMORY TEST 
003526 6802 3188 3017+ B $ NX RETURN TO MDI CONTROLLER 003618 363E 3132 DC A (OTOER) BRANCH IF TEST FAILED TO EXECUTE 
COMET ELE SS SLT SS ESS SS SSS SLES S CSS SS SS CSS LS SS SS TSS SS CCL SSS eS CC CC CeCe LS SS Le Se et 2 00361A 4UcaAt 3133 TRTR i 4 , ER) ANY FAULT DETECTED BY TEST? 
3019 * 00361C 1219 aise P JON AMER YES ~- SET ERROR BIT ON IN STATUS WD 
0 TBTS R2,2 FALSE STORE PROTECT CHECK 
MELETS Ane 3054 ee J : fEZp EXIT 00361E 4020 30E4 0001 3136 MVWI 1,1 OMOD SET UP ATTCH GEN IDCB MODIFIER 
00352E 4AYS 3022 T0110 TBTS R2,5) STOR PROT NOT ON IN ISB 003624 6E03 2F6A 3137 BAL SHRTO R6 EXECUTE ATTCH GEN DIAG TEST 
003530 50EB 3023 J SEZ 6 EXIT 003628 363E 3138 DC A O10FR) BRANCH IF TEST FAILED TO EXECUTE 
003532 4AUGB 3024 T01X TBTS (R2,6) STOR PROTECT NOT DETECTED 00362A YCAT 3139 TBTR é 4, ER) FAULT DETECTED WITH GEN DIAG TEST? 
003534 SOEQ 3025 J Dssb EXIT 00362C 1213 3140 JON ENER YES -— SET ERROR BIT ON IN STATUS WD 
003536 HAYT 3026 T0102 TBTS R2,7) INV STOR BIT NOT ON IN ISB 00362E 9028 2D96 18CA 3141 RETRN MVD CSTL5, TURESUL+2 LOAD CYCLE STEAL STATUS ERROR WDS 
003538 50EE 3027 J Skt EXIT 003634 $8828 2D70 18CE See ee $I0IN, TURESUL+6 LOAD I/O AND INTR CONDITION CODES 
S 8 WRONG CONDITION CODE 
ELE oats 3938 ayue abe BZ EXIT 00363A 6802 3188 3144+ B SCONX RETURN TO MDI CONTROLLER 
ayetcted thee 3034 TOITN apr aban Eye STOR ADDR NOT DETECTED SiC er eee ee ee eae te TR ee AOR t ee ease eee eee 
003542 4C26 3032 TOIL TBT R4, SLE) INTERRUPT ON WRONG LEVEL? O0363E 4A46 3147 OIOER TBTS R2,6 SET OIO ERROR BIT ON 
003544 1002 3033 JOFF B44 NO -—- SET CSS INTR ERROR BIT ON 003640 KAYO 3148 IOER1 TBTS R2,0 SET STATUS BIT ON - TEST FAILED 
003546 QAWE 3034 TBTS R2, 14) YES ~- SET WRONG INTR LVL BIT ON 003642 50F5 3149 J ETRN 
003548 50 F6 3035 J ABie RETURN TO MDI 003644 GAY 3150 ROSER TBTS 13S 1) ROS TEST ENCOUNTERED A FAULT 
OO354A 4O2B 2D96 0001 3036 TO01Z TWI X¥*0001' ,CSTL5 CYCLE STEAL STATUS ERROR? 003646 50FC 3151 J OER1 
003550 1206 3037 JON TO1A YES - SET CS STATUS ERROR BIT ON 003648 4A42 3152 DGRDD fTBTS te: 2) DIAG READ DETECTED FAULT HS DATA BUS 
003552 402B 2D98 0001 3038 TWI  X'0001',CSTL6 FILE NOT READY? 00364A SOFA 3153 J OER1 
003558 1005 3039 JOFF TO1B NO - SET CS STATUS INTR ERR BIT ON 00364C 4HA43 3154 DGWRT TBTS th2 3) DIAG WRITE DETECTED PARITY ERROR 
00355A GAYC 3040 TBTS R2, 12) SET FILE NOT READY BIT ON O0364E 50F8 3155 J OER1 
00355C 50DC 3041 J AB4e RETURN TO MDI 003650 HA4QY 3156 RAMER TBTS {he 4) READ ACCESS MEMORY TEST FAULT 
00355E 4A4YB 3042 TO1A TBTS R2,11) CYCLE STEAL STATUS ERROR 003652 50F6 3157 J OFR1 
003560 6802 3460 3043 B Mart CONTINUE WITH TEST 003654 HAYS 3158 GENER TBTS abe 5) GEN DIAG DETECTED FAULT 
nOeeee enag a oie TO1B are My ae RELGHH GO be INTR ERROR 003656 50F4 ter ‘ J OER1 
003568 4A4D 3046 TOTER TBTS (R2, 13) OIO CC ERROR 003658 00000000000000000 3161 WRBUF DC 128F "Ot 
00356A 50CE 3047 J Dssb RETURN TO MDI 003758 00000000000000000 3162 RDBUF DC 128F*O! 
3048 * 000000 3163 END 
000232 3049 CPUID EQU X*232! 
3982 r7aos fuer, 7/8 sas 
30 53 4% ek tk kk OK IO ROR lo ok iio tok kok dak doko $okok 4K 06 F EBT 6% * 
3054+* 
eyecee TEST UNIT 
+ 
3057+* ATTACHMENT DIAGNOSTIC CHECKOUT 
3058+* 


I7A00 --- 


DECLARED 
2594 
2663 
1719 
1716 
2636 
1300 
1265 


1266 
1250 
1264 
1692 
1713 

42 


102 
103 
39 
4 
45 


3114 
2668 
2693 
2688 
1254 
1339 
1436 
2960 
3049 
1252 
1253 
1283 
1474 


1288 
1289 
1295 
1273 
2689 
105 
1268 
1271 
1425 
3152 
3154 
2788 
3010 
67 
1110 
47 


1245 


1325 
2691 
1169 


NAME 

SCONC 
SCONX 
SDGRD 
$SDGUWR 
SERRS 
SINTL 
SIOIN 


$ISB 
$LE 
$TUID 
$WRTO 
$WRT1 
@CALL 


@DCADD1 
@DCADD2 
@FIXT 
@GOTO 
@TUXX 


AGAIN 
BEGIN 
BITOO080 
BUF PT 
CE 
CICB 
CLDCB 
CONT 
CPUID 
CS 
CSA 
CSBUF 
CSDCB 


CSTL5 
CSTL6 
CST12 
DCBUF 
DC2PT 
DEVADD 
DEV1 
DEV4 
DGDCB 
DGRDD 
DGWRT 
DLYD 
DSSP 
DUMMY 
ENTPT 
EQ 


ER 


EXIT 
FAKETU 
FO0008 


CHANNEL/4963 DISK UNIT 


P/N= 


CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


ADDRESS. HEX LOCATION(000030F2) IN 
2841 2928 2949 3087 
ADDRESS. HEX LOCATION (00003188) IN 
2734 2796 2870 3017 3144 
ADDRESS. HEX LOCATION(00002FBA) IN 
3098 3107 
ghDDRESS. HEX LOCATION (00002FB0) IN 
ADDRESS. HEX LOCATION (00003126) IN 
2842 3088 
ADDRESS. HEX LOCATION (00002DAE) IN 
2 2603 2946 2947 2948 2960 
RESS. HEX LOCATION (00002D70) IN 
1 2365 2425 2505 2542 2605 
2 2856 2862 2983 3004 3142 
RESS. HEX LOCATION (00002072) IN 
1 2366 2506 2547 2606 2956 
OLUTE. HEX VALUE (00000026) 
2 2513 3032 
RESS. HEX LOCATION (09002D6E), IN 
1 2660 2698 2725 2767 2839 
: RESS. HEX LOCATION (O0002F6A) IN 
ADBRESS. HEX LOCATION (00002FAA) IN 
OLUTE. HEX VALUE (00000201) 
582 639 702 720 
810 828 B46 864 882 
972 990 1008 1026 1044 
: RESS. HEX LOCATION (000019B8) IN 
ADDRESS. HEX LOCATION (000019BA) IN 
OLUTE. HEX VALUE (90000101) 
588 66 672 87 
OLUTE, HEX VALUE (00000200) 
OLUTE. HEX VALUE (00000500) 
540 552 570 591° 603 
690 708 726 744 °& 762 
852 870 888 906 924 
1014 1032 1050 1068 1086 
ghDDRESS. HEX LOCATION (000035E0) IN 
ADDRESS. HEX LOCATION (00003192) IN 
ABSOLUTE. HEX VALUE (00000080) 
jADDRESS. HEX LOCATION (000032EE) IN 
OLUTE, HEX VALUE (0000002A) 
2 2464 


[e) 


LUTE, HEX VALUE (00000014) 

RESS. HEX LOCATION (00002DD0) IN 

RESS. HEX LOCATION (00003460) IN 
HEX VALUE (00000232) 


W = NO 


nN 
be OND Ole OS) 00 SUN a Ot Oe 8 ek ON De Ee AO I ON OV Ot Ot OO Bt OW OU I LO © as ON ON LS ON fo ON ON en Be LO CO NU ON UT ON et CN 00 UT et eh 8 Lt SO J U1 


OLUTE. HEX VALUE (00000028) 
2 2354 2462 2503 2532 
: OLUTE. HEX VALUE (00000029) 
RESS. HEX LOCATION (09002D85) IN 
1 1694 2362 2987 3012 
RESS. HEX POCATTON (00005E10 IN 
z 2383 2971 2973 2977 2987 
RESS. HEX LOCATION (00002D96) IN 
2 3014 3036 3141 
F RESS. HEX LOCATION(00002D98) IN 
: RESS. HEX LOCATION(00002DA4) IN 
RESS. HEX LOCATION(00002D7E) IN 


_ 
ue 
~J 


i) 
ty 
e 

x 
ty 
a 


LOCATION (000032F0) IN 
LOCATION (000019D0) _ IN 
2564 266 75 
X LOCATION (00002D76) I 
HEX LOCATION(00002D7C) IN 
LOCATION (00002DC0) IN 
HEX LOCATION (00003648) IN 
HEX LOCATION (0000364C) IN 


HEX LOCATION (0000336A) IN 


NO wt = ND 
mw Oe wm Ww 
tf tH td tH 

aoe woe Ue 

On NO WN 

= 
tf tt 
4 


mm 
ty 
Merwin NWN NNMNNMNM Md 


WHONUTH NeaRpOuNNH NAN NENMNNUIN MU 
t 
te 
4 


Ww W =m 
mw 
ty ty 
# AQ8 
_ 


NO 
cos 
oO 


RESS. HEX LOCATION (00003508) IN 
3 23 3025 3029 3047 
OL E HEX VALUE (00000000) 
RESS. HEX LOCATION (00002A24) IN 
OLUTE. HEX VALUE (00000900) 
55 573 594 606° 618 
29 747 #765 783 ~~ 801 
09 927 945 981 999 
OLUTE. HEX VALUE (00000021) 
1 2368 2389 2472 2514 ° 2539 
2 2996 3002 3100 3109 3127 
OLUTE. HEX VALUE (00000006) 


N 


RESS. 
RESS. 


HEX LOCATION (000032F4) IN 
HEX LOCATION(00002BCA) IN 


NKONWOOW JA SWOO ABW NU OUND BUD OO NOVO OUOUOYU aADWONSD ma DOOWWNIDOWLHO SUOWUID SO UDOD saOOW~INWDANWWOUNOUIDUO Dad WOeaK~JWOU SOU es 
OND NN BWW AWN OO AUN sa NnOODODUN UID NOW ODD ONO 2N0 209 AN aANONWONDONON FOWONWS HAYHDENUNWNANNOONO SENSO sO aN sOUIOU a 
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8327647 FC=375222 PAGE 12 
COPYRIGHT IBM CORP 1976 

CSECT(I7A00 ) LENGTH(2) 

CSECT(I7A00 ) LENGTH(1) 

CSECT(I7A00 ) LENGTH(6) 

CSECT(I7A00 ) LENGTH(6) 

CSECT(I7A00 ) LENGTH(6) 

CSECT(I7A00 ) LENGTH (2) 

SHS" FASO aby t BROTH 

CSECT(I7A00 ) LENGTH(2) 

2958 2985 3006 


CSECT (I7R00 
2926 3085 
Sher (77200 


CSECT (I7A00 


CSECT (I7A00 


615 627 
780 798 
942 960 
CSECT(I7A00 


CSECT (I7A00 


CSECT(I7A00 


CSECT (I7A00 
CSECT (I7A00 


CSECT (I7A00 


CSECT (I7A00 
2991 2998 


CSECT(I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT (I7A00 
CSECT(I7A00 


CSECT (I7A00 
2848 2958 


N CSECT(I7A00 


CSECT (I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT(I7A00 


CSECT (I7A00 


CSECT (I7A00 
CSECT (I7A00 


) LENGTH (2) 
) LENGTH (4) 
) LENGTH (2) 


OnS 


7 
3 
9 
) LENGTH (1) 
) LENGTH (1) 


WAd*r 


5 
6 
8 
LENGTH (2) 


4 
1 
7 
) 
) LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 


) LENGTH (6) 


) LENGTH(1) 


LENGTH (2 
30b8 of 


ww 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


w~Peeeeeeee ee 


) LENGTH (1) 


693 
855 


2969 


) LENGTH (2) 
) LENGTH (1) 


I7A00 --- 


DECLARED 


1175 
1139 


1135 
1147 
1165 
1181 
1199 
1203 
3158 
2697 
1345 
1321 
1322 
1566 
1247 
2564 
2459 
2468 
2472 
2499 

63 
2521 
2502 
2507 
2515 
2555 
2557 


3148 
2558 
2873 
2948 
37 
2674 
1267 
1244 
2648 
1256 
1251 
2736 
525 
537 
540 
552 
564 
570 
582 
588 
591 
603 
615 
627 
639 
645 
657 


NAME 


F00010 
F00012 


FO0Q042 
F00058 
F00086 
F00098 
F00258 
F00267 
GENER 
HEBLK 
HTOE 
IDLE 
IDLE5 
IDOO 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRNL 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOER1 
ITOMOD 
IO3ER 
ITST1 
I7A00 
LINE1 
LSTIO 
MI 
MVBUF 
NG 

NI 
NULL 
N00001 
NO0002 
NO00003 
N00004 
NO00005 
N00006 
N00007 
NO00008 
H00009 
N00010 
N00011 
NO0012 
N00013 
NOOO14 
NO00015 


CHANNEL/4963 DISK UNIT 





P/N=8327647 EC=375222 


CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


HEX LOCATION (00002BFE) IN 
HEX LOCATION (00002446) IN 

640 65 70 

829 847 865 ce 

991 1009 1027 1045 
HEX LOCATTON (00002432) IN 
HEX LOCATION (00002AC2) IN 
HEX LOCATION(00002BAC) IN 
HEX LOCATION (00002C38) IN 


HEX LOCATION (00002D22) IN 


poe 8 Se Ue Ue et UT 00 BL ON ON nk a BY CO OV st Cs OT Uo LC SJ UT ON OF 


1 
ADDRESS. HEX LOCATION (00002D3A) IN 
giDRRESS. HEX LOCATION (00003654) IN 
DDRESS. HEX LOCATION (000032F6) IN 
; BSOLUTE. HEX VALUE (0000001A) 
BSOLUTE. HEX VALUE (90000002) 
2383 2385 2788 
; BSOLUTE. HEX VALUE (00000003) 
DDRESS. HEX LOCATION (00002EAA) IN 
1547 1655 
BSOLUTE. HEX VALUE (90000023) 
1702 2369 2381 859 
DDRESS. HEX LOCATION (000030EA) IN 
2599 2770 
>ADDRESS. HEX LOCATION (0000304E) IN 
: DDRESS. HEX LOCATION (00003066) IN 
ADRRESS. HEX LOCATION (00003062) IN 
DDRESS. HEX LOCATION (00003072) IN 


N 


N 
9 C0 Be Ge Ge SL Us ON UT Oe ONO) WO OO ae a NON De On UO Se UT Oe 


65 
BSOLUTE. HEX VALUE (00000000) 
: DDRESS, HEX LOCATION (000030A2) IN 
RESS. HEX LOCATION(0000307A) IN 
2 2471 247 
j RESS. HEX LOCATION (00003088) IN 
; RESS. HEX LOCATION (00003096) IN 
RESS. HEX LOCATION(000030DE) IN 
1 2370 2604 25936 
RESS. HEX LOCATION (000030E 2) IN 
1 1642 1645 1653 1664 67 
1 1689 1716 1719 =2352 338 58 
RESS. HEX LOCATION (00003640) IN 
3 3153 3155 3157 3159 
RESS. HEX LOCATION (00003084) IN 
1 1707 2344 2347 2353 3130 
. RESS. HEX LOCATION (000033F4) IN 
RESS. HEX LOCATION (00003434) IN 


RESS. HEX LOCATION (000031CA) IN 
: RESS. HEX LOCATION(00002D74) IN 
1 2356 2607 
OLUTE. HEX VALUE (00000020) 
; RESS, HEX LOCATION (00003156) IN 
OLUTE. HEX VALUE (0000002C) 
° OLUTE. HEX VALUE (00000027) 
ADDRESS. HEX LOCATION (00003320) IN 
RESS, HEX LOCATION (00002610) IN 
RESS. HEX LOCATION (00002622) IN 
RESS. 


HEX LOCATION (00002626) IN 
HEX LOCATION (0000263C) IN 
HEX LOCATION (00002648) IN 
HEX LOCATION (0000265A) IN 
HEX LOCATION (00002670) IN 
HEX LOCATION (0000267C) IN 
{HEX LOCATION (00002680) IN 
HEX LOCATION (00002696) IN 
HEX LOCATION (000026A8) IN 
HEX LOCATION (000026BA) IN 
HEX LOCATION (000026CC) IN 
HEX LOCATION (000026D8) IN 
HEX LOCATION(000026EE) IN 


RESS. 
ADDRESS. 
327 
ADDRESS. 
330 553 
ADDRESS. 
333 


ADDRESS. 
336 
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CT. START (00002500) LENGTH (4952) 


CSECT (I7A00 
CSECT (I7A00 
739. 75 
901 91 
1063 109 
CSECT(I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT (I7A00 


CSECT (I7A00 


Wwo~) 


CSECT (I7A00 


CSECT (I7A00 
CSECT(I7A00 
CSECT(I7A00 
CSECT (I7A00 
CSECT(I7A00 


CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
T(I7AQO 
673 
T (I7A00 
T (I7A00 
CT (I7A00 
CSECT(1I7A00 
ESDID (1) 
CSECT (I7A00 
CSECT (I7A00 


nO) Pea F 


CSEC 
167 
260 
CSE 
CSE 
313 
CSE 


CSECT (I7A00 


CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT(I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
CSECT (I7A00 
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) LENGTH (1) 


LENGTH (1 
175 (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
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) LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 
) LENGTH (1) 
) LENGTH (2) 
) LENGTH (2) 
), LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (6) 


) LENGTH (40) 
) LENGTH (2) 


) LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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I7A00 --- CHANNEL/4963 DISK UNIT P/N=8327647 EC=375222 PAGE 13 I7A00 --- CHANNEL/4963 DISK UNIT P/N=8327647 EC=375222 PAGE 13A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYFIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
357 1209 OPTN1 ADDRESS. HEX LOCATION (00902068) IN CSECT(I7A00 ) LENGTH(2) 
663 NO0016 ADDRESS. HEX LOCATION(000026FA) IN CSECT(I7A00 ) LENGTH (2) 2461 2501 2726 2768 2840 2927 3086 
360 646 1232 OPTN3 ADDRESS. HEX LOCATION (00002D6C) IN CSECT(I7A00 ) LENGTH(2) 
669 N00017 ADDRESS. HEX LOCATION(00002706) IN CSECT(I7A00 ) LENGTH(2) 2550 2598 
363 16 101 PARMARA ADDRESS. HEX LOCATION (0000196E) IN CSECT(I7A00 L LENGTH (1) 
672 N00018 ADDRESS. HEX LOCATION(0000270A) IN CSECT(I7A00 ) LENGTH(2) 535 550 562 £580 £601 4613 #625 #637 ~~ &#655 
366 604 685 700 718 736 $754  #+#$..772 #790 808 °&# 826 
675 N00019 ADDRESS. HEX LOCATION(0000270E) IN CSECT(I7A00 ) LENGTH (2) 844 862 880 898 916 934 952 970 988 
369 592 1126 1006 1024 1042 1060 1078 1096 
687 N00020 ADDRESS. HEX LOCATION (00002722) IN CSECT(I7A00 ) LENGTH(2) 69 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(I7A00 ) LENGTH (1) 
690 N00021 ADDRESS. HEX LOCATION (00002726) IN CSECT(I7A00 ) LENGTH(2) 80 81 82 83 84 85 86 87 88 
375 676 89 90 91 92 93 94 95 96 97 
702 N00022 ADDRESS. HEX LOCATION(0000273C) IN CSECT(I7A00 ) LENGTH (2) 98 99 100 101 102 103 104 #+#+$§.(1105 106 
378 107. 108 109 110 117 #42+112 2656 
708 N00023 ADDRESS, HEX LOCATION (00002748) IN CSECT(I7A00 ) LENGTH(2) 2692 PIDMSG10 jABSOLUTE. HEX VALUE (O000F1FO) 
720 NO0024 ADDRESS. HEX LOCATION (0000275E) IN CSECT(I7A00 ) LENGTH(2) 1331 PREP ohBSOLUTE. HEX VALUE (0000000C) 
726 N00025 ADDRESS. HEX LOCATION (0000276A) IN CSECT(I7A00 ) LENGTH (2) 3156 RAMER gh DDRESS. HEX LOCATION (00003650) IN CSECT(I7A00 ) LENGTH(2) 
738 N00026 ADDRESS. HEX LOCATION (00002780) IN CSECT(I7A00 ) LENGTH (2) 3162 RDBUF ABDRESS. HEX, LOCATION (00003758) IN CSECT(I7A00 ) LENGTH (2) 
744 N00027 ADDRESS. HEX LOCATION(0000278C) IN CSECT(I7A00 ) LENGTH(2) 1507 RDDCB ADDRESS. HEX LOCATION (00Q02E40) IN CSECT(I7A00 ), LENGTH (2) 
393. 727 1661 1662 1664 1719 ° 1720 1721 3094 ©3096 3097 
756 N00028 ADDRESS. HEX LOCATION(000027A2) IN CSECT(I7A00 ) LENGTH(2) 3105 3106 
396 1327 RESET ABSOLUTE. HEX VALUE (00000008) 
762 N00029 ADDRESS. HEX LOCATION(000027AE) IN CSECT(I7A00 ) LENGTH(2) 2937 
399745 3141 RETRN ADDRESS. HEX LOCATION (0000362E) IN CSECT(I7A00 ) LENGTH(6) 
774 N00030 ADDRESS. HEX LOCATION(000027C4) IN CSECT(I7A00 ) LENGTH(2) 3149 
402 1338 RICB ABSOLUTE. HEX VALUE (00000013) 
780 N00031 ADDRESS. HEX LOCATION(000027D0) IN CSECT(I7A00 ) LENGTH(2) 2665 
405 763 1529 RKDCB ADDRESS. HEX LOCATION (00002E60) IN CSECT(I7A00 ) LENGTH(2) 
792 N00032 ADDRESS. HEX LOCATION(000027E6) IN CSECT(I7A00 ) LENGTH(2) 1673 1678 
408 1540 RMDCB ADDRESS. HEX LOCATION (00002E70) IN CSECT(I7A00 ) LENGTH(2) 
798 N00033 ADDRESS. HEX LOCATION(000027F2) IN CSECT(I7A00 ) LENGTH(2) 1653 
411 781 3150 ROSER ADDRESS. HEX LOCATION(00003644) IN CSECT(I7A00 ) LENGTH(2) 
810 N00034 ADDRESS. HEX LOCATION(00002808) IN CSECT(I7A00 ) LENGTH(2) 3101 3103 
414 1563 RSBA ADDRESS. HEX LOCATION (OQQQ2E9A) IN CSECT(I7A00 L LENGTH (2) 
816 N00035 ADDRESS. HEX LOCATION (00002814) IN CSECT(I7A00 ) LENGTH (2) 1429 1445 1456 1467 1489 1500 1511 1522 1533 
828 N00036 ADDRESS. HEX LOCATION (0000282A) IN CSECT(I7A00 ) LENGTH(2) 1452 RSDCB ADDRESS, HEX LOCATION (00002DFO) IN CSECT(I7A00 ) LENGTH (2) 
834 N00037 ADDRESS. HEX LOCATION (00002836) IN CSECT(I7A00 ) LENGTH(2) 0 RO REGISTER. HEX VALUE (00000000) 
423. 817. 1123 1706 1708 1709 2728 2778 2784 2785 2790 2791 
B46 N00038 ADDRESS. HEX LOCATION (0000284C) IN CSECT(I7A00 ) LENGTH (2) 2851 2863 2943 2945 2963 2964 2971 2975 2988 
852 N00039 ADDRESS. HEX LOCATION (00002858) IN CSECT(I7A00 ) LENGTH(2) 0 R1 REGISTER. HEX VALUE (00000001) 
429 835 2645 2648 2651 2654 2773 2774 2776 2777 + 2846 
864 NO0O40 ADDRESS. HEX LOCATION(0000286A) IN CSECT(I7A00 ) LENGTH(2) 2847 2849 2850 2946 3013 
432 0 R2 REGISTER, HEX VALUE (90000002) 
870 N00041 ADDRESS. HEX LOCATION (00002876) IN CSECT(I7A00 ) LENGTH (2) 2650 2651 2729 2732 2844 ‘2873 2933 2934 2935 
435 853 3020 3022 3024 3026 3028 3030 3034 3040 3042 
882 N00042 ADDRESS. HEX LOCATION (0000288C) IN CSECT(I7A00 ) LENGTH(2) 3044 3046 3093 3147 3148 3150 3152 3154 3156 
888 N00043 ADDRESS. HEX LOCATION (00002898) IN CSECT(I7A00 ) LENGTH(2) 0 R3 REGISTER. HEX VALUE (00000003) 
44 7 1592. 1594 1646 1649 1656 1657 1660 1663 1674 
900 NoOOuY ADDRESS. HEX LOCATION(000028AC) IN CSECT(I7A00 ) LENGTH (2) 1677 1693 1696 1699 1701 1722 1723 2344 2357 
444 2360 2361 2364 2366 2423 2424 2425 2459 2460 
906 N00045 ADDRESS. HEX LOCATION (000028B8) IN CSECT(I7A00 ) LENGTH(2) 2466 2470 2499 2500 2505 2518 2550 2595 2597 
447 889 2598 2606 2643 2644 2648 2660 2932 2934 3112 
918 NO0046 ADDRESS. HEX LOCATION(000028CE) IN CSECT(I7A00 ) LENGTH(2) 3114 3114 3118 3120 
450 0 R4 REGISTER. HEX VALUE (00000004) 
924 NO0047 ADDRESS. HEX LOCATION(000028DA) IN CSECT(I7A00 ) LENGTH(2) 1702. 1703 1704 2350 2351 2354 2368 2369 2371 
453 907 2372 2375 2381 2389 2461 2462 2464 2468 2472 
936 Noo0o4us ADDRESS. HEX LOCATION(000028EC) IN CSECT(I7A00 ) LENGTH(2) 2501 2502 2503 2513 2514 2515 2517 2520 2530 
5 2532 2534 2537 2539 2726 2768 2840 2859 2866 
942 N00049 ADDRESS. HEX LOCATION(000028F8) IN CSECT(I7A00 ) LENGTH(2) 2927 2951 2954 2966 2969 2978 2981 2993 2996 
459 925 2999 3002 3032 3086 3100 3109 3127 3133 3139 
954 N00050 ADDRESS. HEX LOCATION(0000290E) IN CSECT(I7A00 ) LENGTH(2) 0 R5 REGISTER. HEX VALUE (00000005) 
462 1593. 1594 1647 1649 1655 1657 1661 1663 1675 
960 N00051 ADDRESS. HEX LOCATION (0000291A) IN CSECT(I7A00 ) LENGTH(2) 1677 1694 1696 1697 1699 1721 1723 2358 2360 
465 943 2362 2364 2380 2387 2509 2510 2517 2542 2543 
972 N00052 ADDRESS. HEX LOCATION(0000292E) IN CSECT(I7A00 ) LENGTH(2) 2545 2587 2596 2597 2642 2655 2781 2782 2783 
468 2787 2789 2854 2855 2856 2857 2861 3113 3114 
978 N00053 ADDRESS. HEX LOCATION (0000293A) IN CSECT(I7A00 ) LENGTH(2) 3115 3119 3120 
u71 961 0 R6 REGISTER. HEX VALUE (00000006) 
990 NO0054 ADDRESS. HEX LOCATION (00002950) IN CSECT(I7A00 ) LENGTH(2) 1595 1596 1692 2356 2376 2390 2426 2531 2536 
474 2538 2546 2549 2551 2601 2607 2609 2647 2652 
996 N00055 ADDRESS. HEX LOCATION(0000295C) IN CSECT(I7A00 ) LENGTH(2) 2653 2841 2864 2928 2949 2952 23967 2979 2994 
477 979 3000 3087 3098 3107 3125 3131 3137 
1008 N00056 ADDRESS. HEX LOCATION (0000296EF) IN CSECT(I7A00 ) LENGTH(2) 0 R7 REGISTER. HEX VALUE (90000007) 
480 1311. 1591 1648 1654 1662 1676 1695 1698 1705 
1014 N00057 ADDRESS. HEX LOCATION(0000297A) IN CSECT(I7A00 ) LENGTH(2) 1720 2359 2363 2370 2465 2506 2594 2599 2604 
483 97 2637 2646 2649 2661 2664 2724 2766 2770 2838 
1026 N00058 ADDRESS. HEX LOCATION(00002990) IN CSECT(I7A00 ) LENGTH(2) 2925 2931 2936 3084 3111 3116 3117 
486 1272 SCTID ADDRESS. HEX LOCATION(00002D76) IN CSECT(I7A00 ) LENGTH(2) 
1032 N00059 ADDRESS. HEX LOCATION(0000299C) IN CSECT(I7A00 ) LENGTH(2) 1459 1536 1592 1647 1650 1675 1678 
489 1015 1463 SKDCB ADDRESS. HEX LOCATION(00002E00) IN CSECT(I7A00 ) LENGTH(2) 
1044 N00060 ADDRESS. HEX LOCATION (000029B0) IN CSECT(I7A00 ) LENGTH(2) 1639 
492 1329 START ABSOLUTE. HEX VALUE(0000000A) 
1050 NO0061 ADDRESS. HEX LOCATION(000029BC) IN CSECT(I7A00 ) LENGTH(2) 2373 
495 1033 104 SUPSTAT ADDRESS. HEX LOCATION(000019C4) IN CSECT(I7A00 ) LENGTH(1) 
1062 N00062 ADDRESS. HEX LOCATION(000029CE) IN CSECT(I7A00 ) LENGTH(2) 2659 
498 2944 TEMP ADDRESS. HEX LOCATION (00003426) IN CSECT(I7A00 ) LENGTH(2) 
1068 N00063 ADDRESS. HEX LOCATION(000029DA) IN CSECT(I7A00 ) LENGTH(2) 2945 
501 1051 95 TUBUFF ADDRESS. HEX LOCATION(000018C2) IN CSECT(I7A00 ) LENGTH(1) 
1080 N00064 ADDRESS. HEX LOCATION (000029EC) IN CSECT(I7A00 ) LENGTH(2) 2965 
504 96 TULAST ADDRESS. HEX LOCATION(000018C4) IN CSECT(I7A00 ) LENGTH(1) 
1086 NO0065 ADDRESS. HEX LOCATION(000029F8) IN CSECT(I7A00 ) LENGTH(2) 2963 
507 1069 92 TUMSGWTR ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7A00 ) LENGTH(1) 
1098 N00066 ADDRESS. HEX LOCATION(00002A0A) IN CSECT(I7A00 ) LENGTH(2) 2661 
510 76 TUPARM1 ADDRESS. HEX LOCATION (0000189A) IN CSECT(I7A00 ) LENGTH(1) 
1104 N00067 ADDRESS. HEX LOCATION(00002A16) IN CSECT(I7A00 ) LENGTH(2) 2773 2846 
513. 1087 98 TURESUL ADDRESS. HEX LOCATION(000018C8) IN CSECT(I7A00 d LENGTH (1) 
58 OF ABSOLUTE, HEX VALUE(00000202) 2728 2729 2793 2794 2844 2862 2863 2868 2933 
528 1053 1071 3014 3015 3090 3091 3092 3093 3141 3142 
3147 OIOER ADDRESS. HEX LOCATION (0000363E) IN CSECT(I7A00 ) LENGTH(2) 1301 TURTN ADDRESS. HEX LOCATION (00002DB0) IN CSECT(I7A00 ) LENGTH(2) 
3099 3108 3126 3132 3138 2666 2724 2766 2838 2925 3084 
57 ON ABSOLUTE. HEX VALUE (00000200) 74 TUSTATUS >A DDRESS. HEX LOCATION (00001818) IN CSECT(I7A00 ) LENGTH(1) 
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75 
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2794 
1310 


2838 
2858 
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1246 
2344 


2530 
2537 
2547 
2352 
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TU WORK 
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TO1C 
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TO1H 
TO 1d 
TO 1K 
TO1L 
TO1N 
T01P 
T01Q 
TO1U 
TO 1X 
TO 1Y 
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T7AO1I 
T7A01X 
T7AQ2 


T7A03 
T7A03K 
T7A03L 
T7A03M 
T7A04 
T7A05 
T7A50 
T7A50X 
VRDCB 
WKDCB 
WRBUF 
WRDCB 
WRITO 
WRIT1 
WRSID 
WSDCB 
XE 

XI 

XIO 


XIOCK 
XIOCO 
XIOCQ 
XIOCS 
XTOCV 
XTOCX 
XIODG 
XIOER 
XIO1 

XIO2 

XIO8 

XTRNL 


X7A03 


CHANNEL/4963 DISK UNIT 


ATTRIBUTES AND REFERENCES 


P/N= 


8327647 EC=375222 
CROSS-REFERENCE LISTING 


ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7A00 
2639 2640 2641 2643 ° 2699 
ADDRESS. HEX LOCATION (00003552) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (00003564) IN CSECT(I7A00 
957 2959 2970 3039 
ADDRESS. HEX LOCATION (00003516) IN CSECT(I7A00 
962 2990 3027 3031. 3035 3041 3045 
ADDRESS. HEX LOCATION (00003568) IN CSECT(I7A00 
29. 2950 2953 2968 2980 2995 3001 
ADDRESS. HEX LOCATION (00003494) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (0000347A) IN CSECT(I7A00 
> ADDRESS. HFX LOCATION (000034BC) IN CSECT(I7A00 
gABBRESS. HEX LOCATION (000034DE) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (00003542) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (0000353E) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (0000353A) IN CSECT(I7A00 
ADRESS. HEX LOCATION (00003536) IN CSECT(I7A00 
ADRESS. HEX LOCATION (0000352E) IN CSECT(I7A00 
gABRESS. HEX LOCATION (00003532) IN CSECT(I7A00 
sABDRESS. HEX LOCATION (0000352A) IN CSECT(17A00 
gADBRESS. HEX LOCATION (0000354A) IN CSECT(I7A00 
RESS. HEX LOCATION (00003322) IN CSECT(1I7A00 
572 593 647 692 10 728 746 
800 818 836 908 980 
RESS. HEX LOCATION (00003384) IN CSECT(I7A00 
2 2775 2776 2777 2778 2780 2793 
ADDRESS. HEX LOCATION(0000337A) IN CSBCT(I7A00 
RESS. HEX LOCATION (00002DB8) IN CSECT(I7A00 
605 617 629 677 #42854 890 926 
1034 1070 
RESS; HEX LOCATION (00003388) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (000033CE) IN CSECT(I7A00 
RESS. HEX LOCATION (000033F8) IN CSECT(I7A00 
2 2848 2849 2850 2851 2853 
ADDRESS. HEX LOCATION (000033D6) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (000033FC) IN CSECT(I7A00 
{ABBRESS. HEX LOCATION (0000356C) IN CSECT(I7A00 
RESS. HEX LOCATION(000032FC) IN CSECT(I7A00 
ARDRESS. HEX LOCATION (0000331C) IN CSECT(I7A00 
ADDRESS. HEX LOCATION (00002E30) IN CSECT(I7A00 
; ESS. HEX LOCATION (00002E50) IN CSECT(I7A00 
: RESS. HEX LOCATION (00003658) IN CSECT(I7A00 
RESS. HEX LOCATION (00002E20) IN CSECT(I7A00 
1 1716 3095 3123 3124 


OLUTE. HEX VALUE (00000010) 
OLUTE. HEX VALUE (00000011) 


—_ aad 


RESS. HEX LOCATION (00002E8E) IN 
1 1525 1593 1682 1686 
; RESS. HEX LOCATION (00002DE0) IN 
OLUTE. HEX VALUE (00000024) 
2 2530 2951 2966 2978 2993 
OLUTE. HEX VALUE (00000022) 
1 2372 2515 
RESS. HEX LOCATION (00002FD0) IN 
1 1643 1651 1658 1665 1668 
RESS. HEX LOCATION (000030A4) IN 


NO 


RESS. HEX LOCATION (000030B6) IN 
RESS. HEX LOCATION(000030CC) IN 
235g PSQBGCASEOY (00003782) EH 

HEX LOCATION (000030BA) 
> ADDRESS. HEX LOCATION (000030D8) IN 
HEX LOCATION (00002FD6) IN 
HEX LOCATION (00003042) IN 
HEX LOCATION (00002FF2) IN 
LOCATION (00003018) IN 
OCATION(0000302E) IN 
ALUE (00000001) 
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